#!perl -ln push@{$s{join'',sort split//}},$_;END{for$o(2..15){@$_==$o and push@{$r{$o}},join' ',sort@$_ for %s}print join$/,sort@$_ for values%r}