my ($index) = grep{ $array[$_] eq $suchwort }0..$#array;