foreach (keys(%q_and_a)) { print "Q: $q_and_a{$_}\n"; }