my $dispatch = {
    foo => \&foo,
    bar => sub { print "an anon sub\n" },
    baz => \&Package::function
};

##</code><code>##

my %dispatch = map { $_ => \&{$hash{$_}} } keys %hash;