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

##</code><code>##

print( scalar( @{ $barry{children} } ), "\n" );