#!perl -ln
$j=join"",sort/./g;@{$p{$j}}=sort($_,@{$p{$j}})}{$#$_&&print"@$_"for sort{$#$a-$#$b||$a->[0]cmp$b->[0]}values%p