my $AID = "XD4555";

my $query = $dbh->prepare("SELECT
snd.EMAIL FROM
FUSERS as m
JOIN USERS as snd ON snd.USERID = m.USERID WHERE (m.USERID_IM = ?)");
$query->execute($AID);
my $user1 = $query->fetchall_arrayref();

my $query_other = $dbh->prepare("SELECT
snd.EMAIL FROM
FUSERS as m
JOIN USERS as snd ON snd.USERID = m.USERID_IM WHERE (m.USERID = ?)");
$query_other->execute($AID);
my $user2 = $query_other->fetchall_arrayref();


my $TotalEmails = [ @$user1, @$user2 ];

for my $em ( @$TotalEmails ){}

my $message_s = "<p>hi test</p>";

my $smtpserver = 'mail.xxxxxx.com';
my $smtpport = 587;
my $smtpuser   = 'xxxx.com';
my $smtppassword = 'xxxxxxxx';

my $transport = Email::Sender::Transport::SMTP->new({
  host => $smtpserver,
  ssl  => 'starttls',
  port => $smtpport,
  sasl_username => $smtpuser,
  sasl_password => $smtppassword,
});

my $email_s = Email::Simple->create(
  header => [
    To      => join(", ", @$em),
    From    => 'xxxx@xxx.com',
    Subject => "test em",
	'Content-Type' => 'text/html', 
  ],
  body => $message_s,
);

sendmail($email_s, { transport => $transport });