Use the following simple function. It selects a random integer between (and possibly including!) the two given integers, e.g., random_int_in(50,120)
sub random_int_in ($$) {
my($min, $max) = @_;
# Assumes that the two arguments are integers themselves!
return $min if $min == $max;
($min, $max) = ($max, $min) if $min > $max;
return $min + int rand(1 + $max - $min);
}