package Queue;
my $register;

sub new {...}
sub setRegister {
  my ($pkg, $reg) = @_;
  $register = $reg;
}

##</code><code>##

my $reg = Register->new();
my $queue = Queue->new();
Queue->setRegister($reg);