You should use first() from List::Util. It is a core module, unlike List::MoreUtils and other modules mentioned above, so it is portable and can be used with no extra effort.

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]