Select Code to Download

my @array = qw(0 a b c e 1 2 3 4 5 3 f w);
my $len = 4;
print oxTable->new([ 
   map [splice @array,0,$len], 0..$#array/$len 
    ]);

+--+--+--+--+
|0 |a |b |c |
...
|w |  |  |  |
+--+--+--+--+