my @row;
  while (@row = $sth1->fetchrow_array)
    {
      print "@row \n";
    }