gwillen-macbookpro:~ gwillen$ perl

for my $i (1, 2, 3) {
  push @subs, sub() { return $i; };
}

for my $s (@subs) {
  print &$s . "\n";
}
^D
1
2
3
gwillen-macbookpro:~ gwillen$