my @array = ...; splice(@array, $_, 4) for 0..$#array/5; print("@array\n");