Select Code to Download

my $format = join '', map { "A$_" }
   3,  # Player number
...
   $record[4] =~ s/^\s+//;            # Fix "+/-" formatting.
   $sth->execute(@record);            # Add data to the database.
}