open(INPUT,$outFile) or die "Can't open file";
   my $rowCount = 0;
   while(<INPUT>)
 {
  my @elements = split('\|',$_);
  foreach my $el(@elements)
  {
                          $worksheet->set_column(0,$colCount,40);
$worksheet->write(0,$colCount,$el,$gFmtBold)   ;  
  
  $colCount++;

 }
  $colCount = 0;
  $rowCount++;
}

    $workbook->close();