my @inhalt = grep{-f $pfad.'/'.$_}readdir(DIR);
my $counter = scalar(@inhalt);