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

##</code><code>##

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