sub count_maker {
	my $count = shift;
	return sub {$count++}
}

my $a_counter1 = count_maker(0);
my $a_counter2 = count_maker(4);

print $a_counter1->() . "\n";
print $a_counter2->() . "\n";
print $a_counter2->() . "\n";
print $a_counter1->() . "\n";

__OUTOUT__
0
4
5
1

##</code><code>##

for (0..9) {
	my $count = 3; # just to prove a point
	print counter();
}

do {
	my $count;
	sub counter {$count++}
}
__OUTPUT__
0123456789