my $idx = 0;
foreach my $zeile (@safe_rar) {
    ++$idx;
    $ftp->binary() or die "no Binary ", $ftp->message; 
    print FEHLER "Upload der Dateien.\n";
    $ftp->put($zeile) || print FEHLER "Am $datum ist ein Fehler aufgetreten\nKonnte folgende Datei $zeile nicht auf den FTP-Server hochladen. $!\n\n";
    unless($idx % 60) {
        # überprüfe hier ob die letzen 60 pakete oben sind
    }
}
# überprüfe hier ob die letzen x pakete oben sind