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

##</code><code>##

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