use strict;
use warnings;

open TEMP, '>', 'temp1.txt';
print TEMP <<FILE;
Wanda Smith (332)432-9887
Freddie Sonere 442-9089
Bob Wilson 332-454-9932
FILE
close TEMP;

open TEMP, '>', 'temp2.txt';
print TEMP <<FILE;
Bob Cartwright (821)987-0089
Felix Harris 433.344.8711
Bob Wilson (888)821- 2248
FILE
close TEMP;

open TEMP, '>', 'temp3.txt';
print TEMP <<FILE;
Sam Burr 455-0327
Gloria Simpson (821)544-9341
Wanda Smith 444-9721
FILE
close TEMP;

my %bigList;

local @ARGV = qw(temp1.txt temp2.txt temp3.txt);

while (<>) {
    chomp $_;
    next unless length;
    
    my $inp = $_;
    my $client = $inp;
    my $num = $inp;

    $client =~ tr/0-9().-//d;
    $client =~ s/\s*$//;
    $num =~ tr/ a-zA-Z().-//d;
    
    #make big list
    $bigList{$client}{$num}++;
}

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

##</code><code>##

Bob Cartwright 8219870089
Bob Wilson 3324549932, 8888212248
Felix Harris 4333448711
Freddie Sonere 4429089
Gloria Simpson 8215449341
Sam Burr 4550327
Wanda Smith 4449721, 3324329887