Select Code to Download

my @coderefs;
for $i (@array) {
  push @coderefs, sub { print $i; };
}

my @coderefs;
for (@array) {
  my $i = \$_;
  push @coderefs, sub { print $$i; };
}