foreach my $word (@list) {
    print $word, $/ unless $hash{ lc $word }++;
    $count = $hash{ lc $word };
    if ($count > $maxcount) {
      $maxcount = $count;
      $find = $word;
    }
  }

##</code><code>##