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