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