open(HR, "<hr.txt") || die "can't open hr";
open(AD, "<ad.txt") || die "can't open ad";
open(COMMAND, ">com.txt") || die "can't open com.txt";

while(<HR>)
{
($samaccountnameHR,$givennameHR,$snHR,$initialsHR,
$employeenumberHR,$symphonyemployeetypeHR,$mailHR,
$titleHR,$departmentHR,$companyHR,$lHR,
$physicaldeliveryofficeHR,$streetaddressHR,$stHR,
$postalcodeHR,$telephonenumberHR,$managerHR)=split(/,$/);
	


while(<AD>)
{
 ($samaccountnameAD,$givennameAD,$snAD,$initialsAD,$employeenumberAD,
 $symphonyemployeetypeAD,$mailAD, $titleAD,$departmentAD,$companyAD,
 $lAD,$physicaldeliveryofficeAD,$streetaddressAD,$stAD,$postalcodeAD,
 $telephonenumberAD,$managerAD)=split(/,$/);
		
	if ($employeenumberHR != $employeenumberAD)
	{
		print "$samaccountnameHR $samaccountnameAD\n";
	}
  }
}