my $func = sub { my ($func, $param1, $param2) = @_; do { something }; $func->($func, $param1, $param2); }