Select Code to Download

use warnings;
use strict;
...

print qq($#array x ),
    map {scalar @$_ - 1} (sort {@$a <=> @$b} map {$_ // []} @array)[-1
+];

345 x 65535