foreach (keys %include) {
   $j++ if($include{$_} eq 'yes');
}

print "$j records found\n";