2 of 6 added 110 characters in body

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.