The answer above shows how to do it if you're happy for each recipient to see the full list of recipients in their mail headers (and be able to hit "Reply to All" in their email client).

If not, just loop through your array of addresses.

for my $address (@addresses) {
  my $msg = MIME::Lite->new(
    To => $address,
    ...,
  );
  ...;  # actually send the message or something
}
[download]