Select Code to Download

my %x;

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

print Dumper( \%x );

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