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

...

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