Select Code to Download

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