Help for this page

Select Code to Download


  1. or download this
    for (@raw_list) {
my @entry = split(/,/, $_);
...

$friends{$n}=$sucker;
}
  2. or download this
    foreach $n (sort keys %friends) {
$sucker=$friends{$n};
if ($sucker->{FIRSTNAME}=~/^j.*/) {$d++;}
ect...