Select Code to Download

sub get_hash_key {
  my ($h, @keys) = @_;
...
  $v = $v->{$_} foreach @keys;
  return $v;
}

sub get_hash_key_ref {
  my ($h, @keys) = @_;
...
  $r = \$$r->{$_} foreach @keys;
  return $r;
}