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