$ perl -E 'my $x = {a=>1,b=>2}; say scalar $x; say scalar keys %$x'
HASH(0x7ffe120040b0)
2