while (@data = $sth1->fetchrow_array())
{
    my $col = 0;
    foreach my $coldata (@data)
    {
        push @{$fields[$col]}, $coldata;
        $col++;
    }
}