our $var = 'a';
{ my $var = 'x'; print "$var\n"; }  # x
print "$var\n";                     # a