For clarification, this "internal" list is within the package itself. Thus, I'd have something like this:

package MyObject;

my @MASTER_LIST;

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

  push(@MASTER_LIST, $self);

  return $self;
}
[download]