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