sub foo { print "In sub foo!" };
%bar = ( baz => \&foo );
$foo{baz}();