use strict;
use Data::Dumper;

my ($i,$j) = (0,0);
my $tab;
for (0..10) {
   push @{$tab->[$j]},$_;
   $j++ unless ++$i % 4;
}
print Dumper $tab;

##</code><code>##

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