Help for this page

Select Code to Download


  1. or download this
    my @single = grep {keys (%{$bigList{$_}}) == 1} keys %bigList;
my @multi = grep {keys (%{$bigList{$_}}) > 1} keys %bigList;
...
    print "$one ", join ', ', sort {$a <=> $b} keys %{$bigList{$one}};
    print "\n";
}
  2. or download this
    Gloria Simpson 8215449341
Sam Burr 4550327
...

Bob Wilson 3324549932, 8888212248
Wanda Smith 4449721, 3324329887