$num_kids = (scalar @{$rec[0]{kids}});
$num_kids =  scalar (@{$rec[0]->{kids}});