--------------------------------

package Obj;

sub new 
{
	my $class = shift; 
	my $name = shift;
	my $arrayRef = shift;
	
	my $self = {
		NAME => $obj, 
		ARRAY_REF => $arrayRef 
    };

    bless $self, $class;
	
    return $self;
}

return 1;

# ex: my $obj = new Obj("x", \@arrayOfObjects);