@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);
## @values = values(%hash); foreach $i (@values) { $count ++ if $i; } ##
## $count = (grep { /^$/ } values(%hash))- scalar(values(%hash);