while (@tmp = $hi->fetchrow_array()) { push(@col, $tmp[0]); } while (@org = $sth->fetchrow_array()) { my $i; for ($i = 0; $i <= 9 ; $i++) { push(@values, $org[$i]); } } my $cc = join(", ", @col); my $vv = join(", ", @values); print "\n\n $vv \n $cc"; my $sql_2 = qq{INSERT INTO mfa.genome ($cc) VALUES ("$vv")}; my $now = $DBHandle->prepare( $sql_2 ); $DBHandle->do($sql_2);