my $result_array  = $sth->fetchall_arrayref;
  foreach my $row (@{$result_array}) {
    print join (",", @$row),"\n";
    print FH join (",", @$row),"\n";
  }