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