Select Code to Download

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

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