sub menu {
        foreach my $keys (keys(%hash)) {
                my $num = 1;
                foreach my $race (@{$hash{$keys}}) {
                        print "$num . $race\n";
                        $num++;
                }
                print "\nGive me your choice..\n";
                $choice = ucfirst(<STDIN>);
                chomp $choice;
                $choice--;

                my $sub = "$hash{$keys}[$choice]" . "choice";

                print "You have chose " .  $hash{$keys}[$choice] . "!\n";
                &{$sub}();
        }
}