sub foo {
  ...
}

sub bar {
  ...
}

my $var = 0;
foo();
bar();