my(@daten) = split(/\n/, $daten, 0);  #In ein Zeilenarray umwandeln
foreach my $line (@daten) {           #Array Zeilenweise abarbeiten
    $line =~ m%(.*?);.*?;(.*)%;       #Zeile ohne Datum als Primary Key
    my $key = $1;
    my $value = $2;                   
    if (!exists $seen{$key}){
        print "$line\n";
        $seen{$key} = $value;
    }elsif (! $key ~~ $seen{$key}){
        print "$line\n";
        $seen{$key} = $value;
    }
}#end foreach duplikate verwerfen