sub score
{
    my($word1, $word2) = @_;
    return $words_are_equal_score if $word1 eq $word2;

    my $score = 0;
    for ($word1 =~ /(.)/g) {
        $score++ if $word2 =~ s/\Q$_\E//;
    }
    $score;
}