use List::Util qw[ max ];

my @array = [];
$array[2][3] = 1;
$array[345][10] = 2;
$array[2][65535] = 10;
;;

print $#array, 'x', max( map $#{ $_ // [] }, @array );;
345 x 65535