And to just get the number of children:

my $num_children = @{ $barry{children} };
[download]

or

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

See References Quick Reference