in reply to Re: Annoying warnings...
in thread Annoying warnings...

print '$x is ', (defined $x && reftype $x eq 'HASH') ? '' : 'not', ' a hashref', "\n";

In Section Seekers of Perl Wisdom