if ( $x->{Y} ) {
  if ( $x->{Y}{Z} ) {
    1 if ( $x->{Y}{Z}{A} ) ;
  }
} ; # $VAR={};