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