Perlについての質問箱 40箱目

---- test.pl ----
use strict;
require 'config.pl';
print config::param('hoge');
print config::param('fuga');
---- config.pl ----
package config;
use strict;
sub param {
　return (
　　hoge => 'abcdefg',
　　fuga => '12345',
　)[$_[0]];
}
1;

設定を１つに纏めたいなら、ourとか考えずに上記のようにしろ。
万が一の確立で、そんな面倒なソースがまわってきたら嫌だ。