#!usr/bin/perl
use strict;
use warnings;
use diagnostics;

open(FHAT, "input_at.txt") || die("Could not open file!");
open(OUTFH, ">outputfile.log") || die("Could not open file!");

while(<FHAT>){
    chomp($_);
    print "$_\n";
    print OUTFH "$_\n";

    my ($at,$id1)=split(/\,/, $_);
    open(FHAC, "input_ac.txt") || die("Could not open file!");
    while (<FHAC>){
		print "ac $_";
        my ($id2,$ac)=split(/\,/, $_);
        if($id2 == $id1){
            print "SUCCESS $at : $ac : $id1";
            print OUTFH "SUCCESS $at : $ac : $id1";
        }
    }
    close (FHAC);
}
close (FHAT);
close (OUTFH);