foreach my $elem (@daten)
        {     
                $key = join "\0", @$elem;

                next if $seen {$key}++;
                push @unique, $key;
               
                print "key: $key\n";
        }