package Foo;
use strict;
use warnings;

my %objects;

sub new
  {
  my $class = shift;
  my $self = {};
  bless($self, $class);
  $objects{$self} = *some vitally important information*;
  return $self;
  }