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

    for() for 1 .. 5;

    __END__
    CODE(0x1823d78)
    CODE(0x1823d78)
    CODE(0x1823d78)
    CODE(0x1823d78)
    CODE(0x1823d78)