my $to = $emails{$name};

##</code><code>##

my $content = join '',
              map { "$names[$_]\n" }
              grep { $_ != $skip }
              0..$#names;