my $min_idx = min_index(\@a);