#Wolfram Language 64 bytes

1 byte saved thanks to Mr. Xcoder

This employs braces, "{}", as list delimiters, as is customary in Wolfram Language.

    Select[#~Subsets~{2},IntersectingQ@@#&]/.{a_,b_}:>{""<>a,""<>b}&

It may be possible to save some bytes by using `Cases` instead of `Select` but I have not yet found a way.