@tmp = map {[$i++,$#$_]} @aoa;

##</code><code>##

@sorted = sort {$$b[1]-$$a[1]} @tmp;

##</code><code>##

$index = $sorted[0]->[0];