Trouvez le mot avec la plupart des lettres en commun avec d'autres mots

Je veux Perl (5.8.8) Pour savoir quel mot a le plus de lettres en commun avec les autres mots dans une matrice - mais seulement des lettres au même endroit. (Et de préférence sans utiliser de libs.)

Prenez cette liste de mots comme exemple: p>

• Baker LI>
• Saler Li>
• Baler Li>
• CARER LI>
• ruffr li> ul>

  Son baller est le mot qui a le plus de lettres en commun avec les autres. Il correspond à Baxer à Baker, Xaler in Saler, Xaxer à Career et XXXXR à Ruffr. P>

  Je veux Perl de trouver ce mot pour moi dans une liste arbitraire de mots avec la même longueur et le même cas. On dirait que j'ai frappé le mur ici, alors l'aide est très appréciée! P>

  Ce que j'ai essayé jusqu'à présent h2>

  N'ayez pas vraiment une grande partie d'un script pour le moment:

  #!/usr/bin/perl
  # See if one word has equal letters as the other, and how many of them are equal
  use strict;
  use warnings; 
  
  my $checkword = "APPRECIATION"; # the word to be checked
  my $match = 4; # equal to the match you got from testing your checkword
  my @checkletters = split(//, $checkword); #/
  
  my @wordlist = qw(
      PARTNERSHIPS
      REPRIMANDING
      CIVILIZATION
      APPRECIATION
      CONVERSATION
      CIRCUMSTANCE
      PURIFICATION
      SECLUSIONIST
      CONSTRUCTION
      DISAPPEARING
      TRANSMISSION
      APPREHENSIVE
      ENCOUNTERING
  );
  
  print "$checkword has $match letters in common with:\n";
  
  foreach my $word (@wordlist) {
      next if $word eq $checkword;
      my @letters = split(//, $word);
      my $length = @letters; # determine length of array (how many letters to check)
  
      my $eq_letters = 0; # reset to 0 for every new word to be tested
      for (my $i = 0; $i < $length; $i++) {
          if ($letters[$i] eq $checkletters[$i]) {
              $eq_letters++;
          }
      }
      if ($eq_letters == $match) {
          print "$word\n";
      }
  }
  # Now to make a script on to find the best word to check in the first place...