my $func; $func = sub { my ($param1, $param2) = @_; do { something }; &{$func}($param1, $param2); } &{$func}($p1, $p2);