for my $label (sort keys %family)
{
    my @names = @{$family{$label}};
    print "$label\n";
    for my $name (@names)
    {
         print ref($name) ? "\t@$name\n" : "\t$name\n";
    }
}