#!perl -n
chop;@k=sort split//;push@{$a{"@k"}},$_;$b{"@k"}++;END{%c=map{$_,$b{$_}>1?join(" ",sort(@{$a{$_}}))."\n":""}keys%a;print map{$c{$_}}sort{$b{$a}<=>$b{$b}or$c{$a}cmp$c{$b}}keys%c}