Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
    print "$one ", join ', ', sort {$a <=> $b} keys %{$bigList{$one}};
    print "\n";
}

Select or download this

Bob Cartwright 8219870089
Bob Wilson 3324549932, 8888212248
...
Gloria Simpson 8215449341
Sam Burr 4550327
Wanda Smith 4449721, 3324329887