As you use Mail::Sendmail mroe (or Mail::Mailer which I prefer) you'll be happy to discover that it will take an arrayref in place of a single address in the To field.

I use Mail::Mailer because you can switch from a local mail server to a remote mail server to raw perl generated mail in a heartbeat. Plus I like the print handle model better. Handy.

#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
use Mail::Mailer qw(sendmail);
#use Mail::Mailer;

my $mailer = new Mail::Mailer;
#my $mailer = new Mail::Mailer "smtp", Server => "smtp.somewhere.com";
my $to = [ 'one@two.xxx', 'three@four.yyy' ];

$mailer->open( {
        To => $to,
        From => 'Automated Mailer <here@here.zzz>',
        Subject => "Sample Mailer Script!",
        "Content-Type" => "text/html", 
});

print $mailer start_html,h1('Hi!),p('Yay Test!'),end_html;
$mailer->close;
[download]

--
$you = new YOU;
honk() if $you->love(perl)