my $var;

sub foo {
  $var++;
}