my ($blah) = @_; # note the ()s. w/o them $blah is the size of @_. my $blah = shift; #### my ($first, $second, @rest) = @_; #### sub frontend { shift->backend("an extra arg", @_) } #### sub mine ($blah) { say "$blah is now visible here."; }
## my ($first, $second, @rest) = @_; ##
## sub frontend { shift->backend("an extra arg", @_) } ##
## sub mine ($blah) { say "$blah is now visible here."; }