package MyClass;

my( %attr1, %attr2, %attr3 );

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