Also if your question is specifically about finding the largest number, the following code should work just fine :

%arrayHash=map {$_=> $i++} @array=(-15,4,8,10,3,2,7);
print $arrayHash{pop [sort {$a<=>$b} @array]};
[download]

Originally posted as a Categorized Answer.