$count = (grep { /^$/ } values(%hash))- scalar(values(%hash);