for my $word (sort keys %count) { print "$word $count{$word}\n"; #print "$count{$word}\n"; print "
"; print " \n"; } close $fh;