my %seen = ();
my @uniq;
foreach my $adapter (@result) {                                 
        #print "@{$adapter}\n";                                 
        foreach my $item (@{$adapter}) {                         ueberpruefen
                push(@uniq, $item) unless $seen{$item}++;        vorkommt
        }
}