找出兼类词并计算兼类词占整个词表的百分比

open(In,"dict.txt");$i=0;$j=0;while(<In>){chomp;if(/@/){#print "$_\n";$j++;}$i++;}close(In);print $j/$i;