#set Brands if($brand_Cmin gt 0 and $brand_Cmax gt 0) { my $brand_string = ""; my $ignored_brand_string = ""; for(my $brandC = $brand_Cmin; $brandC <= $brand_Cmax ; $brandC++) { $brand_cell_name = $oWkS->{Cells}[$title_row][$brandC]; if(defined $brand_cell_name and decode('cp1252',$brand_cell_name->{Val}) ne "Epta std") { $brand_cell = $oWkS->{Cells}[$iR][$brandC]; if(defined $brand_cell and length(decode('cp1252',$brand_cell->{Val})) gt 0) { if(decode('cp1252',$brand_cell->{Val}) eq '0') { $ignored_brand_string = $ignored_brand_string . decode('cp1252',$brand_cell_name->{Val}) . ","; } else { $brand_string = $brand_string . decode('cp1252',$brand_cell_name->{Val}) . ","; } } } }