$ perl -le " warn scalar(\my %hash)"
HASH(0x99aa34) at -e line 1.

$ perl -le " warn scalar(\my(%hash))"
SCALAR(0x3f4788) at -e line 1.

$ perl -MData::Dump -le " dd scalar(\my(%hash))"
\undef