perl 匿名函数传参

$subref=sub {
 my $a=shift;
 return $a;
    };

print $subref->("xxyyzz");