print '<table><tr><th>Word</th><th>Count</th></tr>';
for my $word (sort keys %count) {
    print "\n<tr><td>$word</td><td>$count{$word}</td></tr>";
}
print '</table>';


##</code><code>##


for my $word (sort keys %count) {