my $min   = min @list;
my $idx   = first { $list[$_] == $min } 0 .. $#list;
## or for duplicates
my(@idxs) =  grep { $list[$_] == $min } 0 .. $#list;