my %x;

print "one\n" if defined %{$x{a}};
print "two\n" if defined %{$x{a}};

print Dumper( \%x );

##</code><code>##

$VAR1 = {
          'a' => {}
        };