use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Word';
    
$Win32::OLE::Warn = 3; # Die on Errors

my $Word = Win32::OLE->GetActiveObject('Word.Application')
    || Win32::OLE->new('Word.Application', 'Quit');

$Word->Documents->Add || die("Unable to create document ", Win32::OLE->LastError());

my @Data    = ("Data ONE",
               "Data TWO",
               "Data THREE" ,
               "Data FOUR");