File1 Name, Job, City, State Jim, MD, Pinole, CA Tara, Nurse, San Pablo, CA Julie, MD, San Pablo, CA Sherry, Nurse, Pinole, CA George, MD, Pinole, CA Tim, Nurse, Pinole, CA Bob, Nurse, Pinole, CA Uma, MD, San Pablo, CA Kate, Nurse, Oakland, CA Pete, MD, San Pablo, CA ##

##

File2
Name, Job, City, State
Jim, Doctor, Pinole, CA
Tara, Nurse, San Pablo, CA
Julie, Doctor, San Pablo, CA
Sherry, Nurse, Pinole, CA
Jan, Doctor, San Pablo, CA
George, Doctor, Pinole, CA
Tim, Nurse, Richmond, CA
Bob, Nurse, Pinole, CA
Uma, Doctor, San Pablo, CA
Kate, Nurse, Oakland, CA
Paul, Doctor, Oakland, CA
Ruth, Nurse, Richmond, CA
Joe, Nurse, Oakland, CA
Nick, Nurse, Pinole, CA
Pete, Doctor, San Pablo, CA


##

##

$file = "1.txt";
(@namesOld = (), @namesNew = (), @jobOld= (), @jobNew= ());

open (FILE, '<', $file) || die;
while () 
{
   @hospWorkersOld =    split(/,/, $_); 
   push (@namesOld,  @hospWorkersOld[0]);
   push (@jobOld,   @hospWorkersOld[1]);
}
close FILE;

$file2 = "2.txt";
open (FILE, '<', $file2) || die;
while ()
{
   @hospWorkersNew =   split(/,/, $_); 
   push (@namesNew,  @hospWorkersNew[0]);
   push (@jobNew,   @hospWorkersNew[1]);

}
close FILE;


 @oldJobs=();
 @newJobs=();
 @newNames=();

for ($i = 0; $i < scalar(@jobNew); $i++ )
{
      if ($namesOld[$i] eq $namesNew[$i] && $jobOld[$i] ne $jobNew[$i])
      {
         #print "$namesNew[$i]--$jobNew[$i]\n";
         push (@newJobs, $jobNew[$i]);
         push (@oldJobs, $jobOld[$i]);
         push (@newNames, $namesNew[$i]);
      }
   }