package MyConfig; our %state_name_for = ( AL => 'Alabama', AK => 'Alaska', AZ => 'Arizona' ); #### require 'config.pl'; for my $abbrev ( keys %MyConfig::state_name_for ){ print $MyConfig::state_name_for{$abbrev}; } #### package MyConfig; my %state_name_for = ( AL => 'Alabama', AK => 'Alaska', AZ => 'Arizona' ); sub state_name_for{ return \%state_name_for; } #### require 'config.pl'; for my $abbrev ( keys %{MyConfig::state_name_for} ){ print $MyConfig::state_name_for{$abbrev}; }