my @files=("listeG.csv",
           "listeB.csv", 
           "listeE.csv",
           "listeP.csv",
           "listeA.csv",
           "listeC.csv",
           "listeO.csv",
           "listeM.csv",
           "listeS.csv",
           "listeV.csv",
           "listeQ.csv",
           "listeF.csv",
           "preislisteG.csv");
           
  foreach $datei (@files)
    {   
    my $daten = "";
    open(TXT,$datei) or die "Fehler1: \n";
    while(<TXT>){
    $daten = $daten.$_; 
    
    my %UMLAUTE = ('Ä'=>'&Auml;','Ö'=>'&Ouml;','Ü'=>'&Uuml;','ä'=>'&auml;','ö'=>'&ouml;','ü'=>'&uuml;','ß'=>'&szlig;');
    my @UMLKEYS = join("|", keys(%UMLAUTE));
    $daten =~ s/(@UMLKEYS)/$UMLAUTE{$1}/g;
    }            
    close (TXT);
    
    open (TYT,">$datei") or die "Fehler2: \n";
    print TYT $daten;                                                                      
    close (TYT);
    
    copy($datei,"C:\\xampp\\htdocs\\aserver\\AAA\\AAApflugi\\listen\\".$datei); 
                
    $ftp->ascii();
    $ftp->put("$datei");
    }