c:\@Work\Perl\monks>perl -wMstrict -le
"print qq{perl version: $] \n};
 ;;
 use constant {
   STUFF => {
     'bizz' => 'foe',
     'bazz' => 'fie',
     'bozz' => 'fee',
     },
   };
 print ${\( STUFF() ) };
 print STUFF;
 ;;
 foreach my $val (keys ${\( STUFF() ) } ){
   my $subroutine = ${\( STUFF() ) }->{ $val };
   print qq{A: '$val' -> '$subroutine'};
   }
 ;;
 for my $k (keys %{ STUFF() }) {
   my $value = STUFF->{$k};
   print qq{B: '$k' -> '$value'};
   }
"
perl version: 5.014004

HASH(0x4340ac)
HASH(0x4340ac)
A: 'bozz' -> 'fee'
A: 'bazz' -> 'fie'
A: 'bizz' -> 'foe'
B: 'bozz' -> 'fee'
B: 'bazz' -> 'fie'
B: 'bizz' -> 'foe'