for $family ( keys %HoA ) {
    print "$family: @{ $HoA{$family} }\n";
}