#!perl -nl
$b=join'',sort/./g;@{$a{$b}}=sort@{$a{$b}},$_}{$,=' ';for(sort{@{$a}<=>@{$b}||@{$a}[0]cmp@{$b}[0]}values%a){print@{$_}if@{$_}>1}