#!/usr/bin/perl -w

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

	 my%AB;
while(<IN>){ 
	 chomp;
         my($id, $prod_num, $app, $note)=split /\s^,\s^/;
	 $AB{$id}{app} .= ",$app";
	 $AB{$id}{prod_num}="$prod_num, $note";
	
}

for (keys %AB) { $AB{$_}{app}=~s/^,//}

for my $id (sort keys %AB){
	print OUT "$id, $AB{$id}{prod_num}, $AB{$id}{app} \n";
	}
	
close IN;
close OUT;