sub count_letters ($) {
  my $word = shift;
  my %word = ();
  $word{$_}++ for split //, $word;
  return \%word;
}