@values = values(%hash); foreach $i (@values) { $count ++ if defined($i); } #### @values = values(%hash); foreach $i (@values) { $count ++ if $i; } #### $count = (grep { /^$/ } values(%hash))- scalar(values(%hash);