my $j = 0;
  my($line,$field,$record);
  RECORD: while ($record = $sth->fetchrow_hashref){
    $line = '';
    if($j == 0){
      foreach $field (keys %$record){
        $line .= $field . "\t";
      }
      print RESULTS $line,"\n";
      $j++;
      next RECORD;
    }
    $j++;
    foreach $field (keys %$record) {
      if (!defined($record->{$field})) {
        $record->{field} = '';
      } else {
          $record->{$field} =~ s/\t/ /g;
          $record->{$field} =~ s/\r//g;
          if (/\n/) {
              $record->{$field} = s/(\s)\n/$1/g;
              $record->{$field} = s/\n(\s)/$1/g;
              $record->{$field} = s/\n$//;
              $record->{$field} = s/\n/ /g;
          }
      }
      $line .= $record->{$field} . "\t";
    }
    print RESULTS $line,"\n";
  }
  close(RESULTS);

##</code><code>##

-      foreach $field (keys %$record){
+      foreach $field (@{$sth->{NAME}}) {