Select Code to Download

while (my $line = <$fh>) {
    chomp $line;
...
    }
    }    
}

while (my $line = <$fh>)
{
...
        ++$count{$word} if exists $count{$word};
    }
}