sub test (&@) { my $code=shift; map $code->( $_, 'other', 'params' ), @_; }; test { print "\$_ = $_ \@_ = '@_'"; } 1 .. 10; $_ = 1 @_ = '1 other params' $_ = 2 @_ = '2 other params' $_ = 3 @_ = '3 other params' $_ = 4 @_ = '4 other params' $_ = 5 @_ = '5 other params' $_ = 6 @_ = '6 other params' $_ = 7 @_ = '7 other params' $_ = 8 @_ = '8 other params' $_ = 9 @_ = '9 other params' $_ = 10 @_ = '10 other params'