sub foo {
        my $foo;
        $foo = sub { $foo };
        print $foo;
    }

    for() for 1 .. 5;

    __END__
    CODE(0x274f7c)
    CODE(0x274da8)
    CODE(0x1823e48)
    CODE(0x1823e90)
    CODE(0x1823ed8)