while (!eof(INPUT)) {
   $record = <INPUT>;
   my @records = split(/\|/, $record);
   for (my $i=0; $i<scalar(@records); $i++) {
      if ($records[$i] eq '' || $records[$i] eq "\n") {$records[$i] = undef;} #Setting blank fields to undefined
      else {$records[$i] =~ s/\n//g;} #Clearing endline characters
   }
   $DB->doQuery($report->{insertSQL}, $reportDate, @records);
}

##</code><code>##

sub doQuery {
   my $self = shift;
   my $sql = shift;
   my @values = @_;
		
   #Running the new query
   eval{
      my $sth = $self->{"connection"}->prepare($sql);
      $sth->execute(@values);
      $sth->finish();
   };
   #If there are errors
   if ($@) { 
      warn "Error!";
   }
	
   return $self;
}

##</code><code>##

INSERT INTO QID.dbo.ReportT52 (report_date, insert_date, loan_num, loan_id, date_paid, payment_num, escrow, principal, interest, service_fee, net_interest, deposit_remit, balance, late_chg, other_trust, pi_constant, ann_ir, sf_rate, due_date) VALUES (?, GETDATE(), ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)