foreach my $score (@thescore) {
  print $score, "\n";
}