sub score
{
   my ($x, $y) = @_;
   return -1 if $x eq $y;

   my %x; $x{$_}++ for $x =~ /./g;
   my $score = 0;
   $x{$_} && $score++ for $y =~/./g;
   $score;
}