Perl 自增问题

<pre name="code" class="sql">[root@june3 ~]# cat 2.sh
for((i=1;i<=10;i++))
do
echo $i
done
echo "last \$i is $i\n";
[root@june3 ~]# sh ./2.sh
1
2
3
4
5
6
7
8
9
10
last $i is 11\n

$i最后的值是11

----------------------------------------------------------------
[root@june3 ~]# cat a2.pl 
%log;
foreach (1,1,1,2,2,2,2,2,2,3,3,3,3,3,3,4,5,6) {
print "1---\$log{$_} is $log{$_} \n";

###添加hash 数组元素
$log{$_}++;
print "2---\$log{$_} is $log{$_} \n";
};
while(my($ip, $times) = each %log) {
     print "$ip  $times\n";
     }

print "1--------$log{1}\n";
print "2--------$log{2}\n";
[root@june3 ~]# perl a2.pl 
1---$log{1} is  
2---$log{1} is 1
 
1---$log{1} is 1 
2---$log{1} is 2 

1---$log{1} is 2 
2---$log{1} is 3 

1---$log{2} is  
2---$log{2} is 1 
1---$log{2} is 1 
2---$log{2} is 2 
1---$log{2} is 2 
2---$log{2} is 3 
1---$log{2} is 3 
2---$lo