my $foo;

sub bar {
    $foo++;
}