Select Code to Download

my (@ffs) =("txtName", "txtCreated","txtDateren","txtOldname","txtDel"
+);
my (%cols) = ("txtName"=>"Listname", "txtCreated"=>"DateCreated","txtD
+ateren"=>"DateRenamed",
        "txtOldname"=>"OldListname","txtDel"=>"DateDeleted");

foreach(@ffs)
    {
...
          $updatestring = "$updatestring,[$cols{$_}] = \'$fd{$_}\'";
      }
    }

my $sth = $db->prepare("UPDATE table SET $updatestring WHERE tbl.field
+ = '$lname'");