perl -e "$array[345][10]=1;$array[2][65535]=1; print qq($#array x ),map{scalar @$_ -1}(sort{scalar @$b<=>scalar @$a}@array)[0]"

345 x 65535