while (my $soll = $datei){