[问题求助] 大婶帮忙看看单词比对的Perl小程序有木有什么问题啊

949825667

新手，想写一个单词比对的小程序
下面是两个文件列举的部分内容，小部分内容
这个写法有什么问题，我刚刚看入门书！最终目的：通过比对找到8k.txt里面有，但是n.txt里面没有的单词，目前这个代码写的是找到两个文档都的单词，但是也不对
有改的希望么？
8k.txt
abandon                        v.抛弃，放弃
abandonment                        n.放弃
abbreviation                        n.缩写
abeyance                        n.缓办，中止
abide                        v.遵守
ability                        n.能力
able                        adj.有能力的，能干的
abnormal                        adj.反常的，变态的

n.txt
alga
alumna
alumnus
amoeba
analysis
antenna
apex
appendix
auto
automaton

open($IN,"<8k.txt") or die $!;
open($sp_n,"<n.txt") or die $!;
while(<$IN>){
   chomp;
   tr/\r\n//d;
   s/\s+/ /g;
   s/^\s+//; 
   s/\s+$//;
   $line1=$_;
 if($line1=~/[a-z]*n\./){
	
	   ($word,$trans)=split(/\s+/,$line1);	
     $dic{$word}=$trans;
  }
  
while(<$sp_n>){
	       chomp;
	       $line2=$_;
       $sp_w{$line2}=1;
         
	      
    if(exists $dic{$line2}){  
	    print "$line2\n";
	   
	 }
 }
}
复制代码

949825667

看着自己写的代码，真是不好意思！ugly！！！