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

##</code><code>##

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

##</code><code>##

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