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