my $sth1 = $dbh->prepare($full_query);
$sth1->execute();

my $fields = {};

my $hashref;
while ( $hashref = $sth1->fetchrow_hashref )
{
        for ( keys %$hashref )
        {
                push @{ $fields->{$_} }, $hashref->{$_};
        }
}

$sth1->finish;

# data is in $fields