my $kids= scalar @{$rec[0]{kids}};