Select Code to Download

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

sub my_map (&@){
    my $code_ref = shift;
    my @d = @_;
    $_ = $code_ref->($_) for @d;
    return @d;
}