@a = (
    [1, 2, 3],
    [4, 5, 6],
    [7, 8, 9],
);

my $predicted_val
    = $average + $predicted_change * $fudge_factor;

my $predicted_val
    = ($minimum + $maxximum) / 2
        + $predicted_change * max($fudge_factor, $local_epsilon);