push @aoa, [splice @array, 0, $width] while @array;