You still have to loop through the hash somehow, but you could write it a little shorter (and yes, TIMTOWTDI)

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

print "$j records found\n";
[download]

Or use `grep`

Update: ... like blokhead shows :)