my $foo = 1;
  sub foo () { $foo++ }