Basically you have to store the data in a temporary hash. Keep the family name with the subhash and sort the array by the head count.

#insert HoH here

@temp_array = ();
for $i (keys(%HoH)) {
    #the name must be kept with the subhash.
    $HoH{$i}{"name"} = $i;
    push @temp_array, $HoH{$i}; 
    #updated:transposition error on my part
}
#sort the temp array by decreasing head counts
@temp_array = sort {$$b{"head_count"} <=> $$a{"head_count"}} @temp_arr
+ay;

for $i (@temp_array) {
    print "$$i{'name'} House Type: $$i{'house_type'} Head Count $$i{'h
+ead_count'}\n";

}
[download]

Updated: error in my code.