-d "$qverz$_"

my @Dateien = 
   grep {        	# filtere Liste aller
     -d "$qverz$_"  # Dateien mit Dateiflag Directory
   } 
   readdir(DIR); # aus Verzeichnisinhalt