my $h;
my $g;

$h->{abc} = $g->{lkj};

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

##</code><code>##

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

g: $VAR1 = \{};