sub get_max_index {
 my $i, $imax;
 for ($i=0; $i<@_; $i++)
 {
 $imax=$i if ($_[$i] > $_[$imax]);
 }
 return $imax;
}

my @arr = (1..10);
my $ans = get_max_index(@arr);