my $names = $sth->{NAME};
#$names is an array reference
for (@$names) {
   print $_, "\n";
}