The term 'better' will mean different things to different people in different contexts. The following derives some extra speed from the assumption that there is only one value for source throughout the hash:
print "source: ", $hoh -> { $_ }{ source } . "\n" and last for keys %$
+hoh;