删除文本中有相同列值的行(pl文件)

open(F1,"$infile");#原始文件
open(F2,">$outfile");#新建文件
while($s=<F1>){
    ($k)=split(/\s /,$s);
    print F2 $s if (! $KEYS{$k});#输出不存在的行
    $KEYS{$k}=1; #标记
}
close(F2);
close(F1);