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: $!";
                }