for my $sdd ( @gSDDdata ) {
    next unless ( ref( $sdd ) eq 'HASH' and $$sdd{source} );

    for my $srs ( @gSRSData ) {
        next unless ( ref( $srs ) eq 'HASH' and $$srs{sect} );

        $$srs{found} = $$sdd{found} = 1
            if ( $$sdd{source} =~ /$$srs{sect}/ );
    }
}