You could use the Perl map function in the following way. This achieves the results in just two lines.

%arrayHash=map {$_=> $i++} @array=(5,4,3,2,7);
print $arrayHash{pop [sort @array]};
[download]

Originally posted as a Categorized Answer.