{
    my $foo = 1;
    sub level : lvalue {
        $foo;
    }
    ;
}
print level();
{
    level() = 2;
    print level();
}
print level();