#!/usr/bin/perl -w

use strict;

my @lol=([4,5,6,17,42],[10,20,30],[6,7,8,36,55,44]);

my ($row,$max,$i);
$row=$max=$i=0;

for(@lol) {
   for ($_){
       if ($#$_>$max){ $max=$#$_;$row=$i} ;
   };
   $i++
}
printf ("Maximum Index is %i, located in row %i \n",$max,$row);