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