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

##</code><code>##

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