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