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