open FILE,'>','feckyou.txt' or die $!;
  my $workbook = Spreadsheet::WriteExcel->new('newproduct.xls');
  my $worksheet = $workbook->add_worksheet(); 
for my $row (1..$row_max){
  my $valA = $sheet->{Cells}[$row][0]->{Val}; 
  # does this value exist in Col D
  if (exists $colD{$valA}) {
    my $valB = $sheet->{Cells}[$row][1]->{Val};
	my $xlrow = $row+1;
    print FILE "price change [A$xlrow]=[D$colD{$valA}] Value=$valB\n";
	
  }
#output new products to text file
  
	elsif (!exists $colD{$valA})  {
  
 # 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 ($row+1, 0, "$valA");
	$worksheet->write ($row+1, 1, "$valB");
   }
}