warn sprintf "scale:         %.40f\nscaled_index:  %.40f\n"
               . "index:         %.40f\nadjusted_hue: %.40f\n\n",
                  $scale, $scaled_index, $index, $adjusted_hue;