Select Code to Download

for (1,2) {
    push @a, sub {};
...
bless $a[0];
bless $b[0];
print "$a[1] $b[1]\n";