whoops, forgot the sort:

@words = sort keys %{+{ map { !$common{lc $_} ? (lc $_, 1) : () } @wor
+ds }};
[download]