perl应用：SNP的提取（2）：从对比序列中找到SNP位点并输出

我们从第一步中得到的是一个如下的文件：

989 C 1109  T992 T 1112  G996 T 1116  C1001 G 1121  A5266 C 5386  M13677 C 13797  T13678 T 13798  A13679 T 13799  C13681 A 13801  T