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

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

A gazillion ways:). Here's one

my $idx=0;
$idx++ while $array[$idx] ne 'entry'
       and $idx < $#array;    # Added! See [272470]. [cees]++

die 'Entry not found' 
    if $idx == $#array 
    and $array[-1] ne 'entry';
## $array[$idx] is (the first!!) matching entry.
[download]

You will get stuck in an endless loop with that one if the match is not in the array. I'm sure you meant:

my $idx=0;
$idx++ while $array[$idx] ne 'entry' && $idx < $#array;
die 'Entry not found' 
    if $idx == $#array 
    and $array[-1] ne 'entry';
[download]

cees++ Updated, thanks.

Yes! I'm sure that's what I meant :)

---

Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller

my @array = qw( you really don't know where the entry is do you );
my $cnt = 0;
my %hash = map { $_ => $cnt++ } @array;
print $hash{entry}, "\n";
[download]

-derby