sub deep_exists {
  my $hash = shift;
  return 0 if @_ == 0;
  while (@_ > 1) {
    $hash = $hash->{shift} or return 0;
  }
  return exists $hash->{$_[0]};
}

if (deep_exists(\%hash, 'a', 't', 'etc')) {
  ...
}