#!/usr/bin/perl

use strict;
use warnings;

# "our $n;" disables "use strict 'vars';" for $n for the
# remainder of the lexical scope in which it is located.

sub foo { our $n; $n++; }

our $n = 10;

print "$n\n";  # 10
foo();
print "$n\n";  # 11