my $dateienfertig = @safe_datei;
while (my $dateiengesamt ne my $dateienfertig)