for my $word (sort keys %count) {