for my $k (sort keys %hash) {
               # Hash für "unique'ness
               my %unique;
               # Hashslice
               @unique{grep{defined $_}@{$hash{$k}} = undef;
                print $k," => ",join(" - ",keys(%unique)),"\n";
       }