until ($k==@energy_rebin or $energy_rebin[$k]>=$energy_before[$j]){
                $k += 1;
            }