Select Code to Download

$\ = "\n";
foreach (eval "keys \%{ \$new_hash->$key }" ){ print }

my @path = qw(key1 key2 key3);

...
foreach (keys %$reference){
    print;
}