Check out List::Util which became a core module as of 5.7.3

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