in reply to Making little array babies

First, you really don't want named arrays like FOO1, FOO2, FOO3. You'll probably want those as arrayrefs in a master array. Presuming that, this'll do: 
my @copy = @images;
my @result;
push @result, [splice @copy, 0, 3] while @copy;

[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

In Section Seekers of Perl Wisdom