perl哈希push和哈希引用

哈希真的是非常好用的，目前写的很多perl脚本，基本必用哈希。而最常用的，就是将数组push到哈希。

open IN,$file; ## 读取文件

my %hash;
while(<IN>){
chomp;
my @arr=split /\t/,$_;
push @{$hash{$arr[0]}},$arr[1]; ## 将数组存储到hash里面
}
close IN;

foreach my $key (sort keys %hash){
my @arr=@{$hash{$key}};    ## 读取hash的元素
foreach my $i(@arr){
print "$key\t$i\n";
}
}


——————————————————————
A    1
A    2
A    3
B    4
B    5
C    6