#!/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";
}