Perl - Problem Sending email to Outlook Mail Folder

Code to gather email address:
 
elsif($_->[3] =~ /^*ABCDE*/) {
      ## Populate the centre name
      $centreName = "ABCDE";
      ## E-mail To: field
      $to = "ABC-SupportCenter\@mycompany.com";
      ## E-mail body text
      $message = &getMessage($centreName, @{$_});
}
Code to generate email:
 
sub sendMail
{
            my ($from, $to, $subject, $message) = @_;
            my $mailserver = $UtilHandler->get_iw_config("iwsend_mail", "mailserver");
            my $mailer     = new Mail::Mailer('smtp', Server => $mailserver);
            my(%headers) = ('To'           => $to,
                                    'From'         => $from,
                                    'Subject'      => $subject,
                                    'Mime-Version' => "1.0",
                                    'Content-Type' => 'text/html; charset=UTF-8',
                                    );
            if ($LOGPATH) {
                        $UtilHandler->log($LOGPATH, "[To]: $to", 1);
                        $UtilHandler->log($LOGPATH, "[From]: $from");
                        $UtilHandler->log($LOGPATH, "[Subject]: $subject");
                        $UtilHandler->log($LOGPATH, $message);
                        $UtilHandler->log($LOGPATH, "======================================================");
            }
            eval('$mailer->open(\%headers); print $mailer $message; $mailer->close;');
}