use vars qw/$foo/;
sub quux {
  my $bar=29;
  $foo = baz($foo,++$bar)
}

# ...code passes...
$foo = 11;
print quux($foo), "\n";

# ...more code...
{
  local $foo = 39;
  print quux($foo), "\n";
}