sub entity2 { $_[0]->{entity2}=$_[1] if defined $_[1]; $_[0]->{entity2} } sub IxnCount { $_[0]->{IxnCount}=$_[1] if defined $_[1]; $_[0]->{IxnCount} } #### sub synsatMaxScore1 { my ($self, @pmIDs) = @_; if (@pmIDs) { my $ref = \@pmIDs; $self->{synsatMaxScore1} = $ref; } return $self->{synsatMaxScore1}; } #### my $arrayref = $object->synsatMaxScore1; my @array = @$arrayref;