use Data::Dumper;

$hashR = {};
print Dumper $hashR;

$hashR->{$x} = $y;
print Dumper $hashR

##</code><code>##

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