my $SQL = Select tran_seq_nbr, sale_amount 
From KCPOS_Tran_Header
Where org_number = ?
And store_number = ? 
And tran_number = ?
And terminal_number =? 
And tran_Date = ?";

my $sth = $dbh->prepare( $SQL )
    or die "Couldn't prepare statement: " . $dbh->errstr;

$sth->execute($ai_div, $ai_store, $al_trans, $ai_reg, $adt_h_date )
    or die "Couldn't execute statement: " . $sth->errstr;