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