#!/usr/bin/perl
use strict;
use warnings;
use List::MoreUtils qw/ natatime /;

my @list = qw(1 2 3 4 5 6 7 8 9 10 11 12);

my @AoA;

my $it = natatime 4, @list;

while (my @vals = $it->()) {
	push @AoA, \@vals;	
}

print "@list\n";
use Data::Dumper;print Dumper \@AoA;

##</code><code>##

1 2 3 4 5 6 7 8 9 10 11 12
$VAR1 = [
          [
            '1',
            '2',
            '3',
            '4'
          ],
          [
            '5',
            '6',
            '7',
            '8'
          ],
          [
            '9',
            '10',
            '11',
            '12'
          ]
        ];