sub bla {
    local $a = "heh";
    local $f = sub { return "lala $a"};
    return $f
}
print(bla()->() . "\n");