#!/usr/bin/perl
use strict;
use Spreadsheet::XLSX;

my $excel = Spreadsheet::XLSX -> new ('build.xlsx');
my $sheet = $excel->Worksheet('Sheet1');
my ($row_min,$row_max) = $sheet->row_range();


my %colD=();
for my $row ($row_min..$row_max){
  my $valD = $sheet->{Cells}[$row][3]->{Val}; 
  $colD{$valD} = $row+1; # excel row number
}


open FILE,'>','feckyou.txt' or die $!;
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";
	
  }

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