sub score
{
    my ($x, $y) = @_;

    return $words_equal if $x eq $y;
    return 0 unless $x && $y;

    @{[$x =~ /[$y]/g]};
}