>>689
へーと思ってちょっと試してみたが逆の結果が。
ダマサレタ...

use Benchmark qw(:all);

@a = (1..1000);

timethese(100000, {
sum_foreach => sub {
my $sum;
for (@a) { $sum += $_ }
},
sum_map => sub {
my $sum;
map { $sum += $_ } @a;
},
});

を実行すると

Benchmark: timing 100000 iterations of sum_foreach, sum_map...
sum_foreach: 44 wallclock secs (44.29 usr + 0.00 sys = 44.29 CPU) @ 2257.85/s (n=100000)
sum_map: 47 wallclock secs (46.58 usr + 0.00 sys = 46.58 CPU) @ 2146.84/s (n=100000)