% perl -MScalar::Util=reftype -we '$x=1; my $y=($x and reftype $x eq q(HASH))'
Use of uninitialized value in string eq at -e line 1.