my $totcount = $rawchannel[$j];
       my $split1 = (($energy_before[$j]-$energy_rebin[$k])*$totcount)/($energy_before[$j]-$energy_before[${j}-1]); # l:1158