See the following Example:

my @rec = (
        {
        name => 'Nancy',
          address => 613,
          kids => [abc, def]
          },
            .
            . 
        );  
            .
            .
print scalar(@{$rec[0]->{kids}});
[download]