@fieldNames = $sth->{NAME_uc};
printf "%15s %12s %12s %22s %9s %5s $5s", 
  map { $_->[0] } @fieldNames;