open(IN1,"tmp12") || die "Cannot open this file";

@lines1 = <IN1>;

open(IN2,"donor_82_01.csv") || die "Cannot open this file";

@lines2 = <IN2>;


open(OUT,">tmp12_01") || die "Cannot open this file";

for $item1(@lines1){

	chomp $item1;


	#print OUT $item1,"\t";

@tmp1=split(/\t+/, $item1);


for $item2(@lines2){

	chomp $item2;

@tmp2=split(/\,+/, $item2);

		if ($tmp1[1] eq $tmp2[0]){

			print OUT $tmp1[0],",",$item2;

			last;	

		}

	$i++
}


print OUT "\n";


}


close(IN1);

close(IN2);

close(OUT);