my $file = 'tbl_Chemchar.csv';

	 my @items;
	 open(my $data, '<', $file) or die "Could not open '$file' $!\n";
	$i=1;
	while (my $line = <$data>) 
	{
	  my $sap_id = '';
	  my $catalog_num = '';
	  my $note_text = '';
	  
	  my($catalog_num,$sap_id,$note_text) = split ',', $line;
	  if($sap_id ne '' && $i>1)
	  {
	
	  chomp($sap_id);
	  chomp($note_text);
	  
	  $packreportid = processxref($sap_id);
	  
	  push @items, { id => $sap_id , packreporid => $packreportid, note_text => $note_text};  	

	
	  }
	 
	
	 $i++;
	  
	}  
	
	sub processxref 
	{
		my ($sapval_id) =  shift;
		
		my $filename = 'exportchemchar.csv';
		open(my $data2, '<', $filename) or die "Could not open '$filename' $!\n";
		
		while (my $line2 = <$data2>) 
		{
		  chomp $line2;
		  @fields = split ",",$line2;
		  $packrecordval = $fields[0];
		  $saprecord = $fields[2];
		  if($saprecord == $sapval_id)
		  {
		     
		    return $packrecordval;
		    exit;
		  
		  }
		 # print "$cmpval \n";
		  
		
		}
		
		#close $data2;
		
	}