$word->ActiveDocument->MailMerge->OpenDataSource(Name => $csvfile, LinkToSource=>1);
$word->ActiveDocument->MailMerge->Execute(1);