Combining this with other code from perlfaq4 (maybe just a previous version; see `perldoc -q duplicate`):

my %seen;
for my $key ( 'Number', keys %hash) ) { 
    next if $seen{$key}++;
    my $value = $hash{$key};
    print "$key => $value\n";
}
[download]