>perl -wMstrict -le
"my @source = ( -1, -2, -33, -4 );
 ;;
 my $maxseen = 0;
 my $seen_at = 0;
 my $cntr = 0;
 for ( @source ) {
   if ( $_ > $maxseen ) {
     $maxseen = $_;
     $seen_at = $cntr;
     }
     ++$cntr;
   }
 ;;
 print qq{max $maxseen at index $seen_at};
"
max 0 at index 0