increase();
increase();
increase();

sub increase {
  $n += 1;  # Global variable $n
  print "$n\n";
}