use strict;
use Benchmark qw(cmpthese);

my @a1 = (1)x4_000;

cmpthese(4_000, {
    for_loops => sub { for(@a1) { $_ = $_ + 1 } },
    map_loops => sub { map $_ = $_ + 1, @a1; 1 },
});

__END__
            Rate for_loops map_loops
for_loops 1724/s        --       -6%
map_loops 1826/s        6%        --