This should be about twice as fast for large hashes...

my $defined    = grep defined, values %h;
my $notdefined = keys(%h) - $defined;

print "defined     - $defined\n";
print "not defined - $notdefined\n";
[download]

-sauoq
"My two cents aren't worth a dime.";