for my $word (sort keys %statistics) {
  print "$word: $statistics{$word}\n";
} # for