# Dateien im Stickordner nach dieser Liste umbenennen
        foreach my $i (@liste_dateien) {
                $stickdatei = $i;
                $stickdatei =~ /$stickordner\/(\S+)/;
                $stickdatei = "$stickordner/$1";
                $hd_datei = $i;
                $hd_datei =~ /$hdordner\/(\w+)\/(\S+)/;
                $hd_datei = $2;
                if ($dryrun != 1) {
                        move ("$stickdatei", "$stickordner/$hd_datei") || warn "Umbenennen von $stickdatei fehlgeschlagen mit: $!";
                }
                print TESTDATEI "$stickdatei    wird zu\n    $stickordner/$hd_datei\n";
        }