my $index = 0;
my $maxval = $myarray[ $index ];
for my $i ( 0 .. $#myarray )
{
    $maxval < $myarray[$i] and
    $index = $i
        if  $maxval < $myarray[$i];
}
print "The greatest is element number $index: $myarray[$index]\n";
[download]