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