my $fieldNames = $sth->{ NAME_uc };
printf "%15s %12s %12s %22s %9s %5s $5s", @$fieldNames;