sub process_data {
    if ($debug) {
        say "Processing polled data...."
    }
    my $data = shift(@_);

    my %JSON = %$data;    ### Copy the data into a hash ###  

    my $dt = DateTime->now();
    $dt->set_time_zone( 'America/Chicago' );
    if ( not exists($JSON{ra}) ) {
        $JSON{ra} = $JSON{rr} = 'null';
    }
    if ( not exists($JSON{bbl}) ) {
        $JSON{bbl} = $JSON{irl} = $JSON{lux} = 'null';
    }
    $STH->execute($dt->datetime(), $dt->ymd(),   $dt->hms(),  $JSON{'wd'},
                  $JSON{'wv'},     $JSON{'tF'},  $JSON{'tC'}, $JSON{'bp'},
                  $JSON{'rh'},     $JSON{'li'},  $JSON{'ov'}, $JSON{'lux'},
                  $JSON{'bbl'},    $JSON{'irl'}, $JSON{'ra'}, $JSON{'rr'}
    );
}