#!perl
map{push@{$a{"@{[sort+split//]}"}},$_}sort<>;print"@$_\n"for+sort{@$a<=>@$b||@$a[0]cmp@$b[0]}grep{chomp@$_>1}%a