#!perl
map{chomp,push@{$s{"@{[sort split//]}"}},$_}<>;map{@_=sort@$_;push@{$t[@_]},"@_$/"if@_>1}%s;print sort@$_ for@t

#!perl
map{chomp,push@{$h{"@{[sort split//]}"}},$_}<>;map{@_=sort@$_;push@{$f[@_]},"@_\n"}values%h;$_&&print sort@$_ for@f[2..@f-1]

#!perl -nl
$"="";$h="@{[sort(split//)]}";push@{$h{$h}},$_;END{$"=" ";(@{$h{$_}}>1)&&print "@{[sort@{$h{$_}}]}"for sort{@{$h{$a}}<=>@{$h{$b}}}keys%h;}

#!perl -ln
$h=join'',@{[sort(split//)]};push@{$h{$h}},$_;$fl=@{$h{$h}};$f[$fl]{$h}="@{[sort@{$h{$h}}]}";delete$f[$fl-1]{$h};END{map{print$_}sort values%{$f[$_]}for 2..@f-1}

#!perl -nl
$"="";$h="@{[sort(split//)]}";push@{$h{$h}},$_;END{$"="";(@{$h{$_}}>1)&&print"@{[sort@{$h{$_}}]}"for sort{@h=sort@{$h{$a}};@j=sort@{$h{$b}};@{$h{$a}}<=>@{$h{$b}}||$h[0]cmp$j[0]||length$h[0]<=>length$h[0]}keys%h;}