哪位大神帮忙看一看，到底是哪里出了错误？？？

旋转小马

1 #!/usr/bin/perl -w
  2 use strict;
  3 open IN,"blast.out"or die"Can not open IN\n";
  4 open OUT,">klm.xls"or die"Can not open OUT\n";
  5 my $hash;
  6 while(<IN>){
  7         chomp;
  8         my @line=split/\t/,$_;
  9         if(exists $hash{$line[1]}){
10            $hash{$line[1]}++;
11         }else{
12            $hash{$line[1]}=1;
13         }
14 }
15 foreach my $key(sort {$hash{$b}<=>$hash{$a}} keys %hash){
16         print OUT "$key\t$hash{$key}\n";
17 }
18 close IN;
19 close OUT;
这是我写的小代码，系统一直提示编译错误，不知道哪里出了错，大神们帮忙看一看，万分感谢！！！

旋转小马

好吧，终于找到了····my，%hash    这的错误！！！回复 1# 旋转小马


   

pitonas

万分感谢！！！

旋转小马

回复 3# pitonas