use warnings;
use strict;

my @array;

$array[345][10]  = 1;
$array[2][65535] = 1;

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