Select Code to Download

my $h;
my $g;
...

print "h: ", Dumper(\$h), "\n";
print "g: ", Dumper(\$g), "\n";

h: $VAR1 = \{
            'abc' => undef
          };

g: $VAR1 = \{};