perl数组比较求助

各位XDJM：
    小弟在工作上遇到一个困难，请求各位大大帮助一下。谢谢。。。文件格式如下：


SNP_A-4194556        AB        0.016        BB        0.026        AB        0.036        AA        0.115        rs12058711       
SNP_A-4200262        BB        0.045        BB        0.109        BB        0.093        BB        0.243        rs11205411       
SNP_A-2244055        BB        0.049        AB        0.012        BB        0.023        BB        0.049        rs11205401       
SNP_A-2105213        AB        0.006        AB        0.092        AA        0.001        AB        0.037        rs12748771       


文本就是这种格式，主要有4列的，形式如同AA,AB,AB,AA这样的数组，在每行进行比较，如果在某行中，前3个数组的元素相同，而与第4个数组的元素不同，则把这一行的全部内容输入到另一个文本中去。。

用perl编写一下。谢谢啦。

小弟初学PERL,感觉这个思路是这样，但是无法实施到代码上。希望能在各位的帮助下学习一下。。。谢谢

回复 努力学习PERL


    没明白，你指的数组相同是啥？

以
SNP_A-4194556        AB        0.016        BB        0.026        AB        0.036        AA        0.115        rs12058711      
为例， 你指的是"AB",还是"AB        0.016",还是"0.016"?

    是说的是AB，就单单是AB，BB，AB，AA这样的数组。。。。

回复 努力学习PERL


    笨办法：