for (0..5) {
    ($best_avg, $best_s2) = circular_average $best_avg, 24, @data;
    printf "avg: %.1f, s2: %.1f\n", $best_avg, $best_s2;
}