our $bar;

  sub foo {
    local $bar = 4;   # different $bar
    zbr();
  }

  sub zbr {
    print $bar;
  }