use Data::Dumper;
$x = {};
1 if ( exists $x->{W} ) ;
1 if ( defined $x->{X} ) ;
1 if ( $x->{Y} ) ;
1 if ( exists $x->{Y}{X}  ) ;
1 if ( defined $x->{Z}{A}  );
print Dumper $x;