@safe_datei = ();
for my $zeile (sort keys %{$daten{dateien}})
{
    my $zeilendaten = $daten{dateien}{$zeile};
    push @Serverfiles_loeschen, $zeile
        unless exists $zeilendaten->{aenderungsdatum_client};
    if ($zeilendaten->{dateigroesse_client} != 
        $zeilendaten->{dateigroesse_server} or 
        $zeilendaten->{aenderungsdatum_client} ne
        $zeilendaten->{aenderungsdatum_server})
    {
        my $datei_pfad = $pfad . $zeile;
        $datei_pfad =~ tr~/~\\~;
        push @safe_datei, qq{"$datei_pfad"};
    }
}