Select Code to Download

sub get_max_index {
 my $i, $imax;
...

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