while ( my @col_col = $sthZK_Update_extract->fetchrow() ) {
	
	  my $Key_m = $col_col[0];
	  my $Cause = $col_col[1];
	  my $Aggregated_area = $col_col[2];
	  my $SUM_wixi = $col_col[3];
	  my $SUM_wi = $col_col[4];
	  my $SUM_xi = $col_col[5];
	  my $SUM_ni = $col_col[6];
	  my $Sum_wi2xi = $col_col[7];
	
	  print "\n^^^^^^\n$Key_m, $Aggregated_area, $Cause, $SUM_wixi, $SUM_wi, $SUM_xi, $SUM_ni, $Sum_wi2xi\n";
	
	}
	
	my $numerator_L = 2*($SUM_ni-$SUM_xi);     
	my $denominator_L = 2*$SUM_xi;             

	my $numerator_U = 2*($SUM_xi+2);           
	my $denominator_U = 2*($SUM_ni-$SUM_xi);