map function in pure-perl

mymap.pl

sub mymap (&@) {
    my ( $code, @list ) = @_;
    my @res ;
    for my $item ( @list ) {
        $_ = $item;
        push @res, $code->();
    }
    return @res;
}