sub scores {
        my ( $self, @scores )= @_;
        ...
    }

# and later
$node->scores(['3','177','12',]);

##</code><code>##

eval{person->new();} or die ($@);