sub deepExists(\%@) {
  my ($href, @k) = @_;
  for my $testkey (@k) {
    return if ref $href ne 'HASH' || !exists $href->{$testkey};
    $href = $href->{$testkey};
  }
  return 1;
}