Select Code to Download

sub derefHashTree {
    my( $hv, @keys )= @_;
...
foreach(  keys %{ derefHashTree($new_hash,@keys) }  ) {
    print "$_\n";
}