my @cclist = ('abc\@yahoo.com','bfgh\@hotmail.com','rew\@rediff.com');
my @ToAddress = ('abc\@yahoo.com','bfgh\@hotmail.com','rew\@rediff.com');

# Create a new multipart message:
$MIMEEntity = build MIME::Entity
  From       => $FromAddress,
  'Reply-To' => $ReplyToAddress,
  To         => @ToAddress,
  CC         => @cclist,
  Subject    => $MailSubject,
  Notify     => 'SUCCESS,FAILURE,DELAY',
  Type       => 'multipart/mixed'; 

$NetSMTP->mail($FromAddress) or die "ERROR calling SMTPmail, stopped";
$NetSMTP->to(@ToAddress) or die "ERROR calling SMTPmail, stopped"; 
$NetSMTP->cc(@cclist) or die "ERROR calling SMTPmail, stopped";