Average the generated number with the new value. That'll skew it in the right direction.

This really isn't a Perl problem, and it's not a really well-defined statistics/math problem, either.