%a = ('first' => sub first { $x = @_; sprintf("(first %s)",$x); });
谢谢
然后你可以将函数称为$a {first} – >([arg])
my %a = ('first' => sub { my ($x) = @_; sprintf("(first %s)",$x); });
