find(\&matched, $suchpfad);
chdir($suchpfad);
foreach (@delarray)
{
	print "deleting $_\n";
	rmdir("$_") || die "remove dir: $!";
}