open (FILEHANDLE, "<$john.txt");    #open main file
open (DATA, "<email_list.txt");
@lines = <DATA>;
$/ = "\";
while (<DATA>)
{
#PROCESS AND UPDATE A RECORD
}