my $fieldNames = $sth->{NAME_UC};
  print join ":", @$fieldNames;