map$j{join'',sort/./g}.=$_,sort<>;map{/^[^a]/&&print$'}sort map{(a..t)[s!$/(?=.)! !g].$_}%j

##</code><code>##

$o{_,sort/./g}=~s/.*/_$& $_/for sort<>;print/__ (.*
)/for sort%o