for my $word (@list) {
  $frequency{$word}++;
}