Select Code to Download

  # determine the field names
  if ($colNamesHdl) {
...
    $k  = $$rowsHdl[0];
    @ff = keys(%$k);
  }