Compare

$Foo::d = 'foo';
$Bar::d = 'bar';

package Foo;

{
   our $d;         # Creates an alias to $Foo::d
   print("$d\n");  # Prints 'foo'
}                  # End of alias's scope.

package Bar;

{
   our $d;         # Creates an alias to $Bar::d
   print("$d\n");  # Prints 'bar'
}                  # End of alias's scope.
[download]

with

$Foo::d = 'foo';
$Bar::d = 'bar';

package Foo;

our $d;         # Creates an alias to $Foo::d
print("$d\n");  # Prints 'foo'

package Bar;

                # $d is still aliases to $Foo::d
print("$d\n");  # Prints 'foo'

                # End of alias's scope.
[download]