$ perl -E 'my $x = {a=>1}; say $x'
HASH(0xad5cb8)