Select Code to Download

for $group ( "simpsons", "jetsons", "flintstones" ) {
    @members = get_family($group);
    $HoA{$group} = [ @members ];
}

"0451524934","1984",7.9500,67,"Penguin Putnam"
"0618056815","42nd Parallel",13.0000,25,"Houghton Mifflin"
"0195167929","A Strange Likeness - Becoming Red and White in Eighteent
+h Century",29.9500,0,"Oxford University Press"
"0520204026","Abortionist : A Woman Against the Law",25.0000,30,"Unive
+rsity of California Press"