想了很多办法没解决。。。

想了很多办法没解决。。。
把问题简化为：
1个Hash数组（$key,$value): (1,A1,2,A2,3,A3,4,A4,5,A5)。

利用foreach $key (keys %hash) {
$i++;
$key=$i;
print "$hash{$i}\n";
可进行排序。


用delete删除其中第二组(2,A2)后，Hash应该是 (1,A1,3,A3,4,A4,5,A5)
想将其重构为(1,A1,2,A3,3,A4,4,A5)，即将key值无间断向前推一位，试过很多办法，都无法实现。Hash的结构总是保持在(1,A1,3,A3,4,A4,5,A5)状态。

请高手点拨。