my $max;
my $index;
my $x = 0;
for ( @myarray )
{
    $index = $x and $max = $_
        if !defined $max or $_ > $max;
    $x++;
}
print "The winner is element number $index: $myarray[$index]\n";
[download]