} elsif(decode('cp1252',$oWkC->{Val}) eq "Market"){ foreach my $area ( @{ $oWkS->{MergedArea} } ) { if($area->[1] eq $iC and $area->[0] eq $oWkS->{MinRow}){ $market_Cmax = $area->[3]; } } $market_Cmin = $iC; } elsif(decode('cp1252',$oWkC->{Val}) eq "Customer"){ foreach my $area ( @{ $oWkS->{MergedArea} } ) { if($area->[1] eq $iC and $area->[0] eq $oWkS->{MinRow}){ $customer_Cmax = $area->[3]; } } $customer_Cmin = $iC; } elsif(decode('cp1252',$oWkC->{Val}) eq "Brand"){ foreach my $area ( @{ $oWkS->{MergedArea} } ) { if($area->[1] eq $iC and $area->[0] eq $oWkS->{MinRow}){ $brand_Cmax = $area->[3]; } } $brand_Cmin = $iC; }