my @verzeichnisse1 = grep{-l $dir .'/'.$_}readdir(DIR);