if($blockEMDC > 0) { $zzBlock=&CharCount($zzBlock,$i); push @readin, $i; #line added to array if($zzBlock == 0) { $blockEMDC=0; $readin=join(' ',@readin); #connect whole block to one string $_=&CreateHash($readin,\%{$metals{$curlev}{'POLY_BASED_EM_DC'}},'DC'); #if(!$_) {print("$curlev DC consistent is fine!\n")};#only for debugging if($_==1){print("$curlev DC lentgh AND width ranges block is missing!\n")} elsif($_==2){print("$curlev DC count of lentgh-ranges AND count of EM_POLYNOMIALS blocks doesn't match!\n")} elsif($_==3){print("$curlev DC count of width-ranges AND count of EM_POLYNOMIALS block-lines doesn't match!\n")} undef @readin; undef $readin; undef $zzBlock; } }