use Data::Dumper;

$hashR = {};
print Dumper $hashR;

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