my %sub_of = (
1 => sub{ print "program 1" },
2 => sub{ print "program 2" },
3 => sub{ print "program 3" },
4 => sub{ print "program 4" },
5 => sub{ print "program 5" },
6 => sub{ print "program 6" },
7 => sub{ print "program 7" },
8 => sub{ print "program 8" },
9 => sub{ print "program 9" },
);
print "$fun is $sub_of{'1'}
";
&{$sub_of{'1'}},
G:运维系统开发Tk>perl hash.pl
$fun is CODE(0x20ae50c)
program 1
G:运维系统开发Tk>