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

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