use List::Util 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]