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