Win8 Strawberry 5.8.9.5 (32)  Mon 10/04/2021 20:14:50
C:\@Work\Perl\monks
>perl
use strict;
use warnings;

use JSON;

use Data::Dumper;

my $json = '{
   "required": [
        {
            "docs": [
                {
                    "sec": "11111",
                    "number": "1"
                },
                {
                    "sec": "22222",
                    "number": "2"
                }
            ],
            "name": "Mary Lou"
        },
        {
            "docs": [
                {
                    "sec": "33333",
                    "number": "1"
                }
            ],
            "name": "John De"
        },
        {
            "docs": [
                {
                    "sec": "4444",
                    "number": "1"
                }
            ],
            "name": "Smith Doe"
        },
        {
            "name": "Joseph D."
        }
    ]
}';

my $json_data = JSON->new;
my $data = $json_data->decode($json);

for my $dta ( @{ $data->{ required } || [] }) {
    if (scalar @{ $dta->{ docs } || [] } ) {
        for my $doc_data (@{ $dta->{ docs } || [] }) {
            if ($doc_data->{'sec'}) {
                print "\n Yes: $dta->{'name'} - $doc_data->{'sec'} ",
                      "| $doc_data->{'number'} \n";
                }
            }
        }
    else {
        warn "\n No sec value, just the name: $dta->{'name'} \n\n";
        }
    }
^Z

 Yes: Mary Lou - 11111 | 1

 Yes: Mary Lou - 22222 | 2

 Yes: John De - 33333 | 1

 Yes: Smith Doe - 4444 | 1

 No sec value, just the name: Joseph D.