use Benchmark 'cmpthese';

my @arr = ((0) x 1e6);

cmpthese(0, {
        map => sub {map_die(\@arr)},
        for => sub {for_die(\@arr)},
    });
__DATA__
         Rate     map     for
map    1257/s      --   -100%
for 1664823/s 132352%      --