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