Even more generally, here's a subroutine that gives back a random integer in the range X to Y (inclusive):

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