package MyClass ;

my @Registry ;
my $id = 0 ;

sub new {
  my $class = shift ;
  my $objID = $id++ ;
  $Registry[$objID] =
    { some => 'attribute', goes => 'here' }
  return bless \$objID,$class ;
}