use List::Utils qw(first);

my @array = qw( Apples Oranges Brains Toes Kiwi);
my $search = "Toes";

my $index = first {$_ eq $search} @array;

print "index of $search = $index\n";