#Wolfram Language 64 bytes

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

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