Help for this page
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];