Select Code to Download

my %seen;
while (<$FILE>) {
...
for my $string (keys %seen) {
    print "$string encountered $seen{$string} time(s).\n";
}