use strict;
use warnings;

{
  my ($var1, $var2, $var3, @arr1);

  sub foo {
    bar();
  }

  sub bar {
    ++$var1;
    print "$var1\n";
  }
}

foo ();
foo ();