use Data::Dumper;

sub a {
    print "abc";
}

sub b {
    print "123"
}

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

##</code><code>##

use Data::Dumper;

sub b {
    print "123"
}

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