use strict;
use warnings;

package Szyewicki;

our ($Robert);
$Robert = "the boss";

package PoolHall;

our ($Robert);
$Robert = "the darts expert";

package Szyewicki;

print "Here at work, 'Robert' is $Robert, but over at the pool hall, 'Robert' is $PoolHall::Robert\n";

##</code><code>##

Here at work, 'Robert' is the darts expert, but over at the pool hall, 'Robert' is the darts expert

##</code><code>##

use strict;
use warnings;

package Szyewicki;

our ($Robert);
$Robert = "the boss";

package PoolHall;

our ($Robert);
$Robert = "the darts expert";

package Szyewicki;

our ($Robert);
print "Here at work, 'Robert' is $Robert, but over at the pool hall, 'Robert' is $PoolHall::Robert\n";