Help for this page
my $to = $emails{$name};
my $content = join '', map { "$names[$_]\n" } grep { $_ != $skip } 0..$#names;