my $workbook = Spreadsheet::WriteExcel->new('newproduct.xls');
  my $worksheet = $workbook->add_worksheet();
 # open FILE2, '>','newproducts.txt' or die $!;
    my $valB = $sheet->{Cells}[$row][1]->{Val};
#    print FILE2 "New Product: = $valA Price = $valB\n";
#    close FILE2;
    $worksheet->write (0, $row+1, "valA");
    $worksheet->write (1, $row+1, "valB");