perl 匿名函数传参

$subref=sub { my $a=shift; return $a;    };print $subref->("xxyyzz");