#!/usr/bin/perl
use strict;
use warnings;

use vars qw(%hash);

sub foo {
   $hash{$_[0]}+=3;
}

sub bar {
   $hash{$_[0]}++;
   foo($_[0]);
}

foreach my $i (0..10) {
   my %hash;

   $hash{$i} = $i*3;
   bar($i);
   foo($i);

   foreach my $j (sort keys %hash) {
      print "hash{$j} = $hash{$j}\n";
   }
}
print "done\n";

foreach my $j (sort keys %hash) {
   print "hash{$j} = $hash{$j}\n";
}
##</code><code>##

hash{0} = 0
hash{1} = 3
hash{2} = 6
hash{3} = 9
hash{4} = 12
hash{5} = 15
hash{6} = 18
hash{7} = 21
hash{8} = 24
hash{9} = 27
hash{10} = 30
done
hash{0} = 7
hash{1} = 7
hash{10} = 7
hash{2} = 7
hash{3} = 7
hash{4} = 7
hash{5} = 7
hash{6} = 7
hash{7} = 7
hash{8} = 7
hash{9} = 7