c:\@Work\Perl\monks>perl -wMstrict -le
"sub mysub { print 'hiya'; }
 my $hr = { sub_ref => \&mysub };
 $hr->{sub_ref}();
"
hiya