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