Use of uninitialized value in hash element 

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

push(@uniq, $item) unless defined $item and $seen{$item}++;