my $sth = $dbh->prepare("select ... where fld1 = ? and
                                                fld2 = ? and       
                                                fld3 = ?");
      for ($i=0; $i<800; $i++0){
       ...
       $sth->execute($var2, $var2, $var4);
       ...
      }