Help for this page

Select Code to Download


  1. or download this
    @tmp = map {[$i++,$#$_]} @aoa;
  2. or download this
    @sorted = sort {$$b[1]-$$a[1]} @tmp;
  3. or download this
    $index = $sorted[0]->[0];