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

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