my %results;
while ($data = $sth1->fetchrow_hashref) {
    foreach (keys %$data) {
        push $reults{$_}, $$data{$_};
    }
}