Select Code to Download

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

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

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