Re^2: how to seperate array after a certain number of elements?

That refactors nicely:

my @myMainArray =
    map [ @myArray[$_ .. ($_+4 < $#myArray ? $_+4 : $#myArray)] ], 
    map $_ * 5, 0 .. $#myArray/5;
[download]

Caution: Contents may have been coded under pressure.

Comment on Re^2: how to seperate array after a certain number of elements? Download Code