foreach my $i (@liste_dateien) {
		$stickdatei = $i;
		$stickdatei =~ /$stickordner\/(\S+)/;
		$stickdatei = "$stickordner/$1";
		$hd_datei = $i;
		$hd_datei =~ /$hdordner\/(\w+)\/(\S+)/;
		$hd_datei = $2;
		print TESTDATEI "$stickdatei    wird zu\n    $stickordner/$hd_datei\n";
		if ($dryrun != 1) {
			open(OLDERR, ">&", \*STDERR) or die "kann STDERR nicht duplizieren: $!";
			open(STDERR, ">>TESTDATEI");
			move ("$stickdatei", "$stickordner/$hd_datei") || warn "Umbenennen von $stickdatei fehlgeschlagen mit: $!";
			open(STDERR, ">&OLDERR")    or die "kann OLDERR nicht duplizieren: $!";
		}