while ( my @col_col = $sthZK_Update_extract->fetchrow() ) {
#stuff    
      my $SUM_xi = $col_col[5];
      my $SUM_ni = $col_col[6];
# more stuff
      print "\n^^^^^^\n$Key_m, $Aggregated_area, $Cause, $SUM_wixi, $SUM_wi, $SU
+M_xi, $SUM_ni, $Sum_wi2xi\n";
    }
    
    my $numerator_L = 2*($SUM_ni-$SUM_xi);