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