Select Code to Download

my $hash_ref = {
    hack    =>    slash,
...

my @keys = keys %$hash_ref;
my $hash_copy = {};

@{ $hash_copy } { @keys } = @{ $hash_ref } { @keys };


$hash_copy->{$_} = $hash_ref->{$_} for @keys;