package MyObject;

my @MASTER_LIST;

sub new {
  my $pkg = shift;
  my $self = {};
  bless $self, $pkg;

  push(@MASTER_LIST, $self);

  return $self;
}