Closure weirdness in Perl

gistfile1.txt

Updating a single variable in-place: closures get the new value because they fetch it from the lexical scope

$ cat closures.pl 
my @closures;
for (my $i = 0; $i < 3; $i++) {
    push @closures, sub { print "$i\n"; };
}
for my $fn (@closures) {
    $fn->();
}
$ perl closures.pl 
3
3
3

Standard Perl foreach loop: it looks like each iteration gets a new copy of the variable

$ cat closures_foreach.pl 
my @closures;
for my $i (0..3) {
    push @closures, sub { print "$i\n"; };
}
for my $fn (@closures) {
    $fn->();
}
$ perl closures_foreach.pl 
0
1
2
3