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 
    ]);