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