my @indices = grep { $array[$_] eq 'foo' } 0 .. $#array;