my @every_3rd = @array[grep { ! (($_+1) % 3) } 0..$#array];