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;
}