foreach my $word (sort keys %count) {
      printf "%-31s %s\n", $word, $count{$word};
}