sub get_hash_key_ref {
  my ($h, @keys) = @_;

  my $r = \$h;
  $r = \$$r->{$_} foreach @keys;
  return $r;
}