It is more compact/convenient to generate the list using List::AllUtils "natatime":

>perl -MList::AllUtils -MData::Dumper -E " $it= List::AllUtils::nata
time(2,@ARGV); push @zz,[@x]  while @x= $it->(); print Dumper \@zz" 4 
+56 32 4 7 fd dffg234 2323 23
[download]

produces:

$VAR1 = [
          [
            '4',
            '56'
          ],
          [
            '32',
            '4'
          ], .... <snip> ....
[download]

Update: I just noticed davido's post on pairwise - It does not pass syntax on my computer.

I am under the impression that "pairwise" requires 2 arrays, so I chose "natatime" instead.