use List::Utils qw(first);
my @array = qw( Apples Oranges Brains Toes Kiwi);
my $search = "Toes";
my $index = first {$array[$_] eq $search} 0..$#array;
print "index of $search = $index\n";
[download]