http://qs1969.pair.com?node_id=344322

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I'd like to split up an array into a bunch of smaller arrays each containing a specified amount of elements. Can't seem to figure out how to get it done.

Say I have an array of undetermined length (happens to be a bunch of image names read from a directory):
@images = ("IMAGE1","IMAGE2","IMAGE3","IMAGE4","IMAGE5","IMAGE6","IMAG +E7","IMAGE8","IMAGE9","IMAGE10", ect...);

and I want to break it up into smaller arrays of, let's say, three elements each:

@array1 = ("$images[0]","$images[1]","$images[2]"); @array2 = ("$images[3]","$images[4]","$images[5]"); @array3 = ("$images[6]","$images[7]","$images[8]"); @array4 = ("$images[9]");

How can I loop through this array while dynamically assigning a new array name every third time through the loop?

Any help is greatly appreciated.

Lyndon.