@H_404_1@在以下程序中使用散列值计算其发生次数后，如何维护实际列表的顺序？例如，< DATA>是
a b e a c d a c d b etc.
使用哈希，我计算每个元素的发生。
我想要的是：
a 3 b 2 e 1 c 2 d 2
但以下程序另外显示。
my (%count,$line,@array_1,@array_2);
while ($line = <DATA>) {
$count{$line}++ if ( $line =~ /\S/ );
}
@array_1 = keys(%count);
@array_2 = values(%count);
for(my $i=0; $i<$#array_1; $i++)
{
print "$array_1[$i]\t $array_2[$i]";
}
解决方法
哈希没有订购，但像往常一样，CPAN提供了一个解决方案：
Tie::IxHash
use Tie::IxHash;
my %count;
tie %count,'Tie::IxHash';
while ($line = <DATA>) {
$count{$line}++ if ( $line =~ /\S/ );
}
while( my( $key,$value)= each %count) {
print "$key\t $value";
}