foreach my $datei (@dateien)
{
 open (Inhalt,"< $datei");
  print "$datei\n" unless grep { /logging/ } <Inhalt>;
 close (Inhalt);
}