You should really format your code better (one indetion level per opneing brace, see perlstyle), it is very hard to read as is. Maybe the problem becomes visible then?

One obvious problem is:

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

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

The scores method expcets a flat list, but you pass an array reference to it.

Also dubious:

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

Why catch errors with eval if all you do is rethrowing them?