my @index = grep{$array[$_] =~ /$suchmuster/}(0..$#array);