my @names = @{$sth->{NAMES}};
print "<table border=1>\n".join("",map{'<th>'.$_.'<th>'}@names);
while(my $row = $sth->fetchrow_hashref()){
   print "<tr>".join("",map{'<td>'.$_.'</td>'}@{$row}{@names})."</tr>";
   for my $name(@names){
       push @{$hash{$name}},$row->{$name};
   }
}