#!perl -ln
push@{$a{1,sort/./g}},$_;}{s/.//s,print for sort map chr(@$_)."@{[sort@$_]}",grep@$_>1,%a