use feature 'state';
use List::MoreUtils qw(part);
...

print oxTable->new([ 
      part { state $i++ / $len } @array
]);

##</code><code>##

sub arrayStack 
{
    my $len= pop;
    return map [splice @_,0,$len], 0..$#_/$len;
}

...

print oxTable->new([ 
        arrayStack(@array,$len)
    ])