use List::Gen 'array';

sub gen_die ($ar) {
    eval {
        &array($ar)->map(sub {die});
    }
}

cmpthese(0, {
        map => sub {map_die(\@arr)},
        for => sub {for_die(\@arr)},
        gen => sub {gen_die(\@arr)},
    });
__DATA__
         Rate     map     gen     for
map    1316/s      --    -93%   -100%
gen   18831/s   1330%      --    -99%
for 1662271/s 126174%   8727%      --