Select Code to Download

my $i = 0;
my @even = grep $i++ % 2, @array

my @idx = map $_ * 2, 0 .. $#array / 2;
my @even = @array[@idx];

my @even = @array[map $_ * 2, 0 .. $#array / 2];