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