Select Code to Download

foreach my $key ( keys %hash ) {
    print qq($key => $hash{$key}\n);
    my %other_hash = %hash;
}