my $to = $emails{$name};
[download]

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

You should be using MIME::Lite or something