c:\@Work\Perl\monks>perl -wMstrict -le
"sub get_max_index {
   my $imax = 0;
   ;;
   foreach (@_) {
     $imax = (1 .. 0) if $_ > $_[$imax];
     }
   return $imax;
   }
 ;;
 $. = 1;
 ;;
 my @arr = (1,2,13,4,5);
 my $ans = get_max_index(@arr);
 print qq{i max == $ans;  \@arr[$ans] == $arr[$ans]};
"
i max == 2;  @arr[2] == 13