my @copy = @images; my @result; push @result, [splice @copy, 0, 3] while @copy;