Select Code to Download

use warnings;
use strict;
...
        map => sub {map { $arr[$_*2+1] } 0..int(@arr/2)-1},
        }
    );

# my @arr = (0,3,4,5,8,10,12,15, 1..999999);

...
slice   261705/s     63%     14%      --    -18%    -25%
map     319334/s     99%     39%     22%      --     -9%
grep    350258/s    118%     52%     34%     10%      --