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