for (1,2) {
    push @a, sub {};
    my $lex;
    push @b, sub { $lex };
}

bless $a[0];
bless $b[0];
print "$a[1] $b[1]\n";

##</code><code>##

main=CODE(0x1f41648) CODE(0x1f40c88)