Select Code to Download

 foreach my $key (keys %include)
   {
...
   }

print "$j records found\n";

$j++ ? ($include{$key} eq 'yes') : '';
print "$j records found\n";