use strict;
use warnings;

sub get_max_index {  #revisit how to define functions/"my" var ? (default parameters?)
    my $imax=0;
    for (my $i=0; $i<@_; $i++)
         { my $imax=$i if ($_[$imax]<=$_[$i]);}
    return $imax;
}


my @arr = (1..10);
my $ans = get_max_index(@arr);
print"$ans\n";