Select Code to Download

use Data::Dumper;

...
C. England
D. Cameroon

print $quiz{2}{$quiz{2}{answer}};

print '1. ',$quiz{1}{question},"\n";
for ( sort keys %{$quiz{1}} ){
    print "$_. ",$quiz{1}{$_},"\n" if $_ !~ /\p{Lower}/;
}

for (sort keys %quiz) {
    my $number = $_;
...
    }
    print "\nAnswer: $quiz{$number}{answer}\n";
}

for (sort keys %quiz) {
    my $current = $quiz{$_};
...
    }
    print "\nAnswer: $current->{answer}. $current->{$current->{answer}
+}\n";
}