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