Without any further examination, I would change the following line thusly:

while (my $race = <@races>) {
[download]

to

foreach my $race (@races) {
[download]