sub my_map (\&@_) { my $sub = shift; my @out; push @out, $sub->() for @_; return @out; }