#!perl -nl
push@{$_{join"",sort/./g}},$_;END{map{@_=sort@$_;push@{$a[@_]},"@_"if($#_)}values%_;map{map{print}sort@$_}@a}