package Queue;
my $register;

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