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