#!/usr/bin/perl -w

open (IN, "c:/work/Abnova_Grouping/Abnova_App_and_Key.txt");

while(<IN>){ 
	 chomp;
      @t=split(/\t/,$_);
	  $AB{$t[0]}=$AB{$t[0]}.",$t[2]";
	  }
	  print %AB;
close IN;
close OUT;


open (OUT, ">c:/work/Abnova_Grouping/Abnova_Products.txt");
open (IN, "c:/work/Abnova_Grouping/Abnova_Product_List.txt");

while (<IN>){
	  chomp;
	  @Products=split(/\t/,$_);

	  if ($Products[0] and exists $AB{$Products[0]}){
	  	 print OUT "$Products[0]\t$Products[2]\t$AB{$Products[0]}\n";
	  }
}

close IN;
close OUT;