my $kids;
foreach my $record (@rec) {
  $kids+= scalar @{$record->{kids}};
}