Select Code to Download

use Data::Dumper;

...
$hash = {"a",\&a, "b", \&b};
$Data::Dumper::Deparse = 1;
print Dumper($hash);

use Data::Dumper;

...
$hash = {"a",sub {print "abc"}, "b", \&b};
$Data::Dumper::Deparse = 1;
print Dumper($hash);