sub my_exists {
  my ($hash_ref,$key)= @_;
  return $hash_ref and exists $hash_ref->{$key}
}