while(<INFILE>){
   chomp;
   ($index,@record)=split/[:,]/;
   push @{$records{$index}},@record;
}