sub entity2 { $_[0]->{entity2}=$_[1] if defined $_[1]; $_[0]->{entity2} }
sub IxnCount { $_[0]->{IxnCount}=$_[1] if defined $_[1]; $_[0]->{IxnCount} }

##</code><code>##

sub synsatMaxScore1 {	
	my ($self, @pmIDs) = @_; 
	if (@pmIDs) {
		my $ref = \@pmIDs;
		$self->{synsatMaxScore1} = $ref;
	}	
	return $self->{synsatMaxScore1};
}

##</code><code>##

my $arrayref = $object->synsatMaxScore1;
my @array = @$arrayref;