if( $MyConfig::state_name_for{AL} = 'Alaska' ){ print "oops! we just assigned Alaska to the AL key!\n"; } #### sub state_name_for{ return \%state_name_for; } #### sub get_state_name { $state_name_for{ +shift} }
## sub state_name_for{ return \%state_name_for; } ##
## sub get_state_name { $state_name_for{ +shift} }