my $dbh = DBI->connect("DBI:mysql:database=$sql_database;host=$sql_host;port=$sql_port", $username, $password,{'RaiseError' => 1});
	
loop {


				
unless ($dbh->do($insertstr, undef, $slice->seq_region_name(), $vf->start $vf->variation_name(),  $vf->allele_string() )) {
	print INSERTLOG "failed to insert", , "\n";

} #end unless
}#end loop