my $daten1 = $daten;
$daten1 =~ s%(.*?;).*?;(.*)%$1$2%g;
my @daten=split(/\n/,$daten1);
@daten=&del_double(@daten);

sub del_double{
my %all=();
@all{@_}=1;
return (keys %all);
}