Select Code to Download

my @result = map some_sub($_), qw(a b c d);

my @result = map { my $x = $_; local $_; some_sub($x) } qw(a b c d);