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

##</code><code>##

foreach my $race (@races) {