for ($i = 1; $i <= 8; $i++) {
  print "\\\$i is ", \$i, "\n";
  my $c = sub { print "\$i is $i\n" };
  print "\$c is $c\n";
  push @codes, $c;
}

##</code><code>##

\$i is SCALAR(0x80ce98c)
$c is CODE(0x80cea04)
\$i is SCALAR(0x80ce98c)
$c is CODE(0x80cea04)
\$i is SCALAR(0x80ce98c)
$c is CODE(0x80cea04)
\$i is SCALAR(0x80ce98c)
$c is CODE(0x80cea04)
\$i is SCALAR(0x80ce98c)
$c is CODE(0x80cea04)
\$i is SCALAR(0x80ce98c)
$c is CODE(0x80cea04)
\$i is SCALAR(0x80ce98c)
$c is CODE(0x80cea04)
\$i is SCALAR(0x80ce98c)
$c is CODE(0x80cea04)

##</code><code>##

for (my $i = 1; $i <= 8; $i++) {
  print "\\\$i is ", \$i, "\n";
  my $c = sub { print "\$i is $i\n" };
  print "\$c is $c\n";
  push @codes, $c;
}

##</code><code>##

\$i is SCALAR(0x80ce974)
$c is CODE(0x80c83ac)
\$i is SCALAR(0x80ce974)
$c is CODE(0x80d22f8)
\$i is SCALAR(0x80ce974)
$c is CODE(0x80d2364)
\$i is SCALAR(0x80ce974)
$c is CODE(0x80d23d0)
\$i is SCALAR(0x80ce974)
$c is CODE(0x80d243c)
\$i is SCALAR(0x80ce974)
$c is CODE(0x80d24a8)
\$i is SCALAR(0x80ce974)
$c is CODE(0x80d2514)
\$i is SCALAR(0x80ce974)
$c is CODE(0x80d2580)

##</code><code>##

 foreach my $i (1..8) {
  print "\\\$i is ", \$i, "\n";
  my $c = sub { print "\$i is $i\n" };
  print "\$c is $c\n";
  push @codes, $c;
}

##</code><code>##

\$i is SCALAR(0x80c83ac)
$c is CODE(0x80ce95c)
\$i is SCALAR(0x80d21b8)
$c is CODE(0x80d21c4)
\$i is SCALAR(0x80d2230)
$c is CODE(0x80d223c)
\$i is SCALAR(0x80d22a8)
$c is CODE(0x80d22b4)
\$i is SCALAR(0x80d2320)
$c is CODE(0x80d232c)
\$i is SCALAR(0x80d2398)
$c is CODE(0x80d23a4)
\$i is SCALAR(0x80d2410)
$c is CODE(0x80d241c)
\$i is SCALAR(0x80d2488)
$c is CODE(0x80d2494)