my $num_children = @{ $barry{children} };