抽取这个词典中所有独立的汉语译文并统计其频次 ？

open(In,"dict.txt");

while(<In>){
	chomp; 
	if(/(.+)=>(.+)/){
		$hash{$2}=$1;
	}  

}

close(In);

$i=0;
foreach $m(sort keys %hash){
	@arr=split(" ",$m);
	foreach $d(@arr){
		if($d=~/[\x80-\xff].+/){  #(存疑）
			$i++;
			print "$d\n";
			print "$i\n";
		}
	}
}