Help for this page

Select Code to Download

Select or download this
```
my $kids= scalar @{$rec[0]{kids}};
```

Select or download this

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