my $child_count = scalar @{ $barry{children} };
foreach my $child ( @{ $bary{children} ) {
    print $child->{name}, "\n";
    print $child->{age}, "\n";
    # etc.
}