Select Code to Download

my $excel = Win32::OLE -> new("Excel.Application");
$excel->{Visible} = 0;
...
my $workbook1    = $excel->Workbooks->Open($OutFileName);

my $worksheet1  = $workbook1->Worksheets(1);

    $worksheet1->Cells($Row, $Col)->{'Value'} = $var1;
    $worksheet1->Cells($Row, $Col+1)->{'Value'} = $var2;
    $worksheet1->Cells($Row, $Col+2)->{'Value'} = $var3;
    $worksheet1->Cells($Row, $Col+3)->{'Value'} = $var4;

    for i = 1:num_worksheets
    # write in worksheet[i] cell (j,k) with variable var1
    end