sub calculate_xyz {
    my ($x, $y, $x, $state_variance) = @_;
    $state_variance //= 1;
    return (($x + $y) / $z) * $state_variance;
}