Hi Monks,

I'm having a set users in a array whom i need to send  a mail using MIME::Lite, I'm using the below code but facing an error as can't extract address.

Am I doing anything wrong.

my @arr = qw( 'abc' 'efg' 'xyz');

my $users = undef;
foreach (@arr){
$users.= '$_.@gmail.com',
}
#print $users

my $subject ="hai team this is a test mail";

my $msg=MIME::Lite->new(
    From    =>'admin@xyz.com',
    To      => $users,
    Subject =>'Test mail Pl ignore!!!',
    Type    =>'multipart/mixed');

    $msg->attach(Type =>'TEXT',
    Data => $subject);

MIME::Lite->send('smtp', $mail_host, Timeout=>60);
$msg->send;
print " Hai";