Well another alternative would be

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

print "$x and $y\n";
[download]

Not saying this is better. It's much less clear actually.

-Lee

"To be civilized is to deny one's nature."