package MyClass;

my %instances;

sub new{
    my( $class, $attr1, $attr2, attr3 ) = @_;
    my $self = bless {}, $class;
    return $instances{ $self } = [$attr1, $attr2, $attr3];
}