各位帮帮忙！

各位帮帮忙！
我日前将两个文本进行匹配，其中第一个文本是文章摘要的集合，好多摘要，一个为一行，第二个文本是疾病的集合，一行为一个疾病，我的目的是将摘要中出现的疾病都列出来，结果为一行摘要对应一个或几个疾病，我的程序如下：
#!/usr/bin/perl -w
open(myfile1,"E:\\PathayKu\\pathway\\test\\aaa.txt");  #摘要集合
open(myfile2,"E:\\PathayKu\\pathway\\test\\dis.txt"); #疾病集合
open(myfile5,">E:\\PathayKu\\pathway\\test\\Result1.txt");   #结果写入
while($one=<myfile1>){
   while($two=<myfile2>){
   chomp $two;
    if(index($one,$two,0)>-1){
      print myfile5 "$two\n";
    }
    else{next;}
   }
}
close myfile1;
close myfile2;
close myfile5;

但是结果就是不行啊，望指点啊，兄弟我在做文本挖掘呢

看来只能我自己回一个了啊.
看来只能我自己回一个了啊，但是我还不知道怎么搞啊，其实能找到匹配的呢，就是不返回，我检查了，好像是循环终止的缘故，但是为什么终止我就不知道了呢