defined(%hash) problem

see http://perldoc.perl.org/functions/defined.html for more details