% perl -wle 'my %foo; if ( %foo ) { print "OK" } else { print "KO" }'
KO
% perl -wle 'my %foo = (1,2); if ( %foo ) { print "OK" } else { print "KO" }'
OK