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

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

$file2 = "2.txt";
open (FILE, '<', $file2) || die;
while (<FILE>)
{
   @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]);
      }
   }