while ((my $key, my $value) = each %hash) {
    print "the Key is: $key\n";
    my %seen = ();
    # Perl Cookbook 4.6  Extracting Unique Elements from a List
    my @uniq = grep { ! $seen{$_}++ } @$value;
    print join("\n",@uniq),"\n\n";
}