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";