@values = values(%hash);

foreach $i (@values)
{
   $count ++ if $i;
}