while (my $soll = <$datei>){ ... }