my $index = 0;
my $maxval = $myarray[ my $index ];
for ( 0 .. $#myarray )
{
    if ( $maxval < $myarray[$_] )
    {
        $index = $_;
        $maxval = $myarray[$_];
    }
}
print "Max is index $index: $myarray[$index]\n";