Select Code to Download

use List::Util qw /reduce/;

...
my $index = reduce {$arr[$a] > $arr[$b] ? $a : $b} (0 .. $#arr);

print "$index\n";