next unless {-d "$ldir/$name"};
[download]

I don't think you want the braces there. Try:

   next unless -d "$ldir/$name";
[download]

Also, I think you should change:

 my @races = undef;
[download]

to:

my @races;
[download]

Tip #4 from the Basic debugging checklist: After your 1st while loop, add:

use Data::Dumper;
print Dumper(\@races);
[download]