Select Code to Download

$columns = join ',',                       # paste them together separ
+ated by commas
           map { $db->quote($fd{$_}) }     # extract the value and quo
+te it
           grep { exists $fd{$_} }         # keep only the checked one
+s
           ('chk1'..'chk6')                # Checkboxes
;