for my $j (0 .. $#energy_bin) {
   printf "%.5f %.5e %.5f %.5e %.5f\n",
     $energy_bin[$j],
     $spec_cps[$j][0], $sigma_cps[$j][0],
     $spec_cps[$j][1], $sigma_cps[$j][1];
}