#Wolfram Language 64 bytes

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.