my @to;
for my $em ( @$records ) {
    push @to, @$em;
}

##</code><code>##

# Slice makes it return an arrayref of hashrefs
my $records = $query->fetchall_arrayref({});

my $transport= ...

for my $record (@$records) {
    mail($from, $record->{to}, $subject, $record->{name});
}

sub mail {
  my ($from, $to, $subject, $name)= @_;
  my $html= .... # form-fill the name into an html template
  my $email= ...
  sendmail($email, { transport => $transport });
}

##</code><code>##

      $transport= Email::Sender::Transport::SMTP::Persistent->new(
         host => $host,
         ssl  => ($port == 465)? 1 : ($port == 587)? 'starttls' : 0,
         port => $port,
         $user? (sasl_username => $user) : (),
         $pass? (sasl_password => $pass) : (),
         debug => $log->is_trace,
      );

##</code><code>##

# Assuming you start with an HTML document for your email:
$text= HTML::FormatText::WithLinks->new(unique_links => 1)
           ->parse($html);

##</code><code>##

# Because most mail clients don't properly process <style> blocks,
# we have to embed the style onto each individual element.
# This class does the job for us.
my $inliner= CSS::Inliner->new();
$inliner->read({ html => $html, charset => 'utf8' });
$html= $inliner->inlinify;

##</code><code>##

# Build the email.  The resolver will find all external images
# and stylesheets and suck them in as multiple parts.
my $email= Email::MIME->create_html(
   header => [ ], # we use the unicode-enabled setters, instead
   text_body_attributes =>
      { charset => 'UTF-8', encoding => 'quoted-printable' },
   text_body => encode('UTF-8', $text), # text gets assigned as-is
   body_attributes =>
      { charset => 'UTF-8', encoding => 'quoted-printable' },
   body => $html, # body gets assigned as body_str
   embed => 1,
   base => "https://YOUR_WEBSITE",
   # Prevent excessive lookups of resources
   object_cache => $self->resource_cache,
   inline_css => 1,
   %$args,
);
# These methods properly handle unicode, which is why we use them
#  instead of passing these to the constructor
$email->header_str_set(To =>
  (ref $to eq 'ARRAY'? join(', ',@$to) : ''.$to));
$email->header_str_set(From =>
  (ref $from eq 'ARRAY'? join(', ',@$from) : ''.$from));
$email->header_str_set(Subject => ''.$subject);