$_=<>;s#\w+#(lc$&eq join"",sort split//,lc$&)&&push@m,$&#ge,print"@m"