#combine client lists into one list
#strip all extraneous symbols

#! usr/bin/perl -w    

while (<>) { 
                    

    chomp($inp = $_); 

    $client = $inp;   
    $client =~ tr/0-9().-//d; 
    $num = $inp;         
    $num =~ tr/a-zA-Z().-//d;  
    $num =~ tr/ //d;          
   
#make big list<br>
  $bigList{$client}{$num}++; 
}
                                  
 

for  $one (sort keys %bigList) {                                         
   print "$one ", join ', ', sort {$a <=> $b} keys %{$bigList {$one}};   
   print "\n";                                             
}