##

if (exists $fd{chk1} ) { 
push @columns
}

##

##

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