my ($index) = grep $array[$_] eq $search_for, 0 .. $#array;