#!/usr/bin/perl

use strict;
use warnings;

our $a = 10;
{
  my $a = 11;
  print $a, "\n"; # prints the local variable
  print $main::a, "\n"; # prints the package variable
}