>perl -wMstrict -le
"sub mysub (&@) {
     my $coderef = shift;
     map $coderef->($_), @_;
     }
 my @out = mysub { $_ += 33 } 0 .. 5;
 print qq{@out};
"
33 34 35 36 37 38