Select Code to Download

#!/usr/bin/perl -w

...
    push @thescore, $_};
    ...
}

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

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