my $foo=17;
sub quux {
  my $bar=29;
  $foo = baz($foo,++$bar)
}