my $sth1 = $dbh->prepare($full_query);
    $sth1->execute();
    my @data_aoa = [];
    while (@data = $sth1->fetchrow_array()) {
        push @data_aoa[0], $data[0];
        push @data_aoa[1], $data[1];
        push @data_aoa[2], $data[2];
    }
    .
    .
    .
    $sth1->fini