open(A, "<" . DUMP_A) || die("Could not open file \n");
open(B, "<" . DUMP_B) || die("Could not open file \n");
open(OUTPUT,">" . INACTIVE_LIST) || die ("Could not write to file \n");


my $readA;
my $readB;
while(defined($readA = <A>)){
	$readA =~ s!\s+!!g;
	#chomp($readA);
	my $a_ID = $readA;

	while(defined($readB = <B>)){
	
		chomp($readB);
		my ($b_ID, $b_acctno)=split(/\|/,$readB);
		# Check both the GUIDs are same

		if($a_ID =~ m/^$b_ID/i){
		#if($a_ID eq $b_ID){
			
			print OUTPUT "$a_ID|$b_ID \n";
		}
	}
	seek(B,0,0);
}
close(OUTPUT); 
close(A); 
close(B);