c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"sub S { return uc $_[0]; }
 ;;
 my %hash = ( 'x' => \&S('foo'),  'y' => \S('bar') );
 dd \%hash;
"
{ x => \"FOO", y => \"BAR" }