Select Code to Download

use feature 'state';
use List::MoreUtils qw(part);
...
print oxTable->new([ 
      part { state $i++ / $len } @array
]);

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