my ($x,$y) = ($#aoa + 1 , undef);
() = map { $y = $#{$_} + 1 if $#{$_} > $y  } @aoa;

print "$x and $y\n";