Comparing list values to find similarities

I have a list of values, each 2-4 characters long. This is an example of such a list:

7R
31A
1AB
3ZB
1EM
8Z
9UZ
7FH
42AB

I would like to find out if any of the values in the list is similar to any other value in the list.

By similar I mean for example do they share more than half of their characters, so that in the example above 1AB and 42AB would have a Similarity, whereas 1AB and 3ZB wouldn't be similar as they only share the B.

I came up with this, but the Step "Similarity" only creates Lists that contain Errors and I have not figured out so far how to fix that.

let

Source = {"7R", "31A", "1AB", "3ZB", "1EM", "8Z", "9UZ", "7FH", "42AB"},
Table = Table.FromList(Source, Splitter.SplitByNothing(), {"Value"}),

// Add a custom column to compare each value with every other value
Similarity = Table.AddColumn(Table, "Similarity", each List.Select(Table[Value], each Text.Length(Text.Combine(Text.ToList([Value] & _), "")) > Text.Length([Value]) * 0.5)),

// Remove duplicate rows and expand the Similarity column to display the similar values
RemoveDuplicates = Table.Distinct(Similarity),
ExpandSimilarity = Table.ExpandListColumn(RemoveDuplicates, "Similarity"),

// Remove rows where the value is similar to itself
FilterOutSameValue = Table.SelectRows(ExpandSimilarity, each [Value] <> [Similarity])

in

FilterOutSameValue

Can anybody help me with this?

Thanks a lot.