my $code = sub {mysub(10, @_)};

sub mysub {
# ...
}