foreach my $head (@{$sth->{NAME_uc}}) {
	print $head . "\n";
}