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