use List::Util qw /reduce/;

my @arr= qw/7 6 4 90 5 7/;

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

print "$index\n";
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.