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