my @unique;
my %seen = ();

foreach my $elem (@daten)
{
   next if @$seen {$elem}++;
   push @unique, $elem;
}