@words = sort keys %{+{ map { !$common{lc $_} ? (lc $_, 1) : () } @wor +ds }}; [download]
In reply to RE: RE: List processing performance by visnu in thread List processing performance by Odud