sub insert_nodes_one {
    my $sth = $dbh->prepare_cached("INSERT INTO node (taxid, name, tree_id, parent, children, rank, common_name)
	VALUES (?, ?, '4', '-1', 'replace me', ?, ?);   ")
      or die "Cannot prepare: " . $dbh->errstr();

    foreach (keys %tax_lookup) {
        first_pass($_, $sth, \$n, $count);
    }
}

sub first_pass{
my $key = $_[0];
my $sth = $_[1];
my $n= $_[2];
my $count= $_[3];
my $name = $tax_lookup{$key}{name};
	$name =~ s/'/_/g;
        my $common_name = $tax_lookup{$key}{common_name};
        $common_name = 'none' unless ($common_name);
        $common_name =~ s/'/_/g;

        my $parent_taxid = $tax_lookup{$key}{parent_taxid};
        my $rank         = $tax_lookup{$key}{rank};
        if ($tax_lookup{$key}{rank} eq 'no') {$rank = 'none'}
        my $children_taxid = join ' ', @{$tax_lookup{$key}{children_taxid}};

        unless ($$n % 100) {print "\r($$n / $count)"}

        $sth->execute($key, $name, $rank, $common_name);
        $$n++;
}