Select Code to Download

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