revision 3:

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

and the $/ = "\n" didn't do what i wanted, but oh well.. i probably wanted $\ = ' ', but that seems broken right now too.. oh well again.