print ''; for my $word (sort keys %count) { print "\n"; } print '
WordCount
$word" . ('#' x $count{$word}) . "
';