Some of your code can be re-written for improved readability, and more perl-like:

       foreach my $keys (keys(%hash)) {
                my $races = $hash{$keys}; # For easy access to @$races
+ ...
                my $choice = "INVALID";
                while (not ( $choice=~/^\d+$/ and defined  $races->[$c
+hoice -1])){
                   print ($_ +1) . " . " . $races->[$_] . "\n" for 0..
+$#$races;

                   print "\nGive me your choice..\n";
                   chomp ( $choice = <STDIN>); 
                }
               ....
[download]

**UNTESTED **