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