my $sth1 = $dbh->prepare($full_query);
        $sth1->execute();
        # fetch the records
         
          while (@data = $sth1->fetchrow_array()) {
            push @field1, $data[0];
            push @field2, $data[1];
            push @field3, $data[2];
          }

$sth1->finish;