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

##</code><code>##

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