in reply to how to push 5th element from one array to another array
And now for something completely different
my @array = ...; splice(@array, $_, 4) for 0..$#array/5; print("@array\n"); [download]