#!perl -nl
push@{$_{"@{[sort/./g]}"}},$_}{map{@$_>1&&print"@$_"}sort{@$a<=>@$b||"@$a"cmp"@$b"}map[sort@$_],%_

#!perl -nl
push@{$x{join'',sort/./g}},$_}{map{@$_>1&&print"@$_"}sort{@$a<=>@$b||"@$a"cmp"@$b"}map[sort@$_],%x

#!perl -nl
push@{$_{join'',sort/./g}},$_}{map{$#$_&&print"@$_"}sort{@$a<=>@$b||"@$a"cmp"@$b"}map[sort@$_],values%_

#!perl -nl
push@{$_{join'',sort/./g}},$_}{map{$#$_&&print"@$_"}sort{@$a<=>@$b||"@$a"cmp"@$b"}map$_=[sort@$_],values%_

#!perl -nl
push@{$x{join'',sort/./g}},$_}{map{print"@$_"}sort{@$a<=>@$b||"@$a"cmp"@$b"}map$_=[sort@$_],grep$#$_,values%x

#!perl -nl
push@{$x{join'',sort/./g}},$_}{map{$#$_&&push@x,[sort@$_]}values%x;map{print"@$_"}sort{@$a<=>@$b||$a->[0]cmp$b->[0]}@x

#!perl -l
chomp(@_=<>);map{$g="[$_]"x y|||c;@z=sort grep/^$g$/,@_;$z{"@z"}=0if$#z}@_;map print,sort{$a=~y| ||<=>$b=~y| ||||$a cmp$b}keys%z

#!perl -l
map{chop;push@{$x{join'',sort split//}},$_}<>;map{$#$_&&push@x,[sort@$_]}values%x;map{print"@$_"}sort{@$a<=>@$b||$a->[0]cmp$b->[0]}@x

#!perl -nl
push@_,$_}{@t=@i=();$x=join'&',map"/$_/",split//,$i[0]=shift@_;eval$x&&length==length$i[0]?push@i,$_:push@t,$_ for@_;push@o,[sort@i]if$#i;(@_=@t)&&redo;print join$",sort@$_ for sort{@$a<=>@$b||$a->[0]cmp$b->[0]}@o