my $j = grep { $_ eq 'yes' } values %include;
print "$j records found\n";

##</code><code>##

$j++ if $include{$_} eq 'yes';