my $mlg_addr_duplicate_check =<<EOQ;
SELECT mlg_addr_id FROM mlg_addr WHERE
address1 = ? AND address2 = ? AND city = ? AND state = ?
AND zipcode5 = ? AND  zipcode4 = ? AND country = ?
EOQ

my $sth_mlg_addr_duplicate_check = $dbh->prepare($mlg_addr_duplicate_check) or die $dbh->errstr;

my $insert_mlg_addr =<<EOQ;
INSERT INTO mlg_addr
(address1,address2,city,state,zipcode5,zipcode4,country)
VALUES(?,?,?,?,?,?,?);
EOQ

my $sth_insert_mlg_addr = $dbh->prepare($insert_mlg_addr) or die $dbh->errstr;