Select Code to Download

my @arr = (1,2,3,5,10,3,4,300,1,2,-2);
my ($i) = map { $_->[0] } sort { $b->[1] <=> $a->[1] } map { [ $_ , $a
+rr[$_] ] } 0..$#arr; 
print "i=$i\n"; # index 7 => value 300