sub random_number_from_X_to_Y {
    my ($x, $y) = @_;
    my $random = $x + int(rand($y - $x + 1));
    return $random;
}