In[359]:= Select[words, StringLength@# == 11 &] // tim;
>
> 0.333922,20250
>
Wow!
In[360]:= MaximalBy[%, Length@anagrams@# &] // tim
During evaluation of In[360]:= 30110.569159,5
Out[360]= {"anisometric", "creationism", "miscreation", "reactionism",
"romanticise"}
--rwg