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