Wanda Smith (332)432-9887<br>
Freddie Sonere 442-9089<br>
Bob Wilson  332-454-9932<br><br>

##</code><code>##

Bob Cartwright (821)987-0089<br>
Felix Harris 433.344.8711<br>
Bob Wilson (888)821- 2248<br><br>

##</code><code>##

Sam Burr 455-0327<br>
Gloria Simpson (821)544-9341<br>
Wanda Smith 444-9721<br><br>

##</code><code>##

#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";                                             
}