in reply to subref with stored argument?

Try this:
my $code = sub {mysub(10, @_)}; sub mysub { # ... }