my $delstatus = 'checking for: [' . $data->{'host_name'} .
            '][' . $data->{'service_description'} . '] for last output entry.';
        my @last_records = database('current')->quick_select('states',
            {
                host_name => $data->{'host_name'},
                name => $data->{'service_description'}
                },
            { order_by => { desc => 'id' } }
            ) or $delstatus .= '/error from quick_select call;' .
                ' ERR [' . database('current')->err . '];' .
                ' ERRSTR [' . database('current')->errstr . ']';
        $delstatus .= '/found [' . (scalar @last_records) . '] to delete';
        debug("QUICK SELECT STATUS: --=> $delstatus <=--");

##</code><code>##

Use of uninitialized value in concatenation (.) or string at /home/svcanagios/n2s/bin/../lib/NagiosToServiceNow/json.pm line 699.
Use of uninitialized value in concatenation (.) or string at /home/svcanagios/n2s/bin/../lib/NagiosToServiceNow/json.pm line 699.[NagiosToServiceNow::json:51461] debug @2018-09-22 15:41:00> QUICK SELECT STATUS: --=> checking for: [targethostname][targetchecktext] for last output entry./error from quick_select call; ERR []; ERRSTR []/found [0] to delete <=-- in /home/svcanagios/n2s/bin/../lib/NagiosToServiceNow/json.pm l. 709