sub Write_leads
{
	@fields = qw(Email FirstName LastName Address City State ZIP Datasource AdType OrigIP DATE Gender DOB phone Country);
	$sth = $dbh->prepare("INSERT INTO $leads_tbl VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");

	for $href (@leadslist) {
		$sth->execute( @{$href}{@fields});
	}
	return;
}