Update Scorer.pm

Removed the superfluous 1; yay Perl6!