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