foreach my $label ( sort keys(%family) ) { print "$label\n"; foreach my $name ( @{ $family{$label} } ) { print "\t$name\n"; if (ref($name)) { foreach my $inner_name ( @{ $name } ) { print "\t\t$inner_name\n"; } } } }