use strict; use warnings; sub get_max_index { my $arrayRef = shift; my $imax = 0; for my $i (0..@$arrayRef-1){ $imax = $i if $arrayRef->[$i] > $arrayRef->[$imax]; } return $imax; } my @arr = (1..10); my $ans = get_max_index(\@arr); #pass reference to array! print"$ans\n";