my $excel = Win32::OLE -> new("Excel.Application");
$excel->{Visible} = 0;
$excel->{DisplayAlerts}=0;
$excel->{SheetsInNewWorkbook} = 1;

my $workbook1	= $excel->Workbooks->Open($OutFileName);

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

##</code><code>##

    $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;

##</code><code>##

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