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

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