@allnames = grep(!$saw{lc}++, @names);