if ($fd{chk1} eq "Listname") {
$columns = $db->quote($fd{$_}) .",";
}