my $low  = 7;
my $high = 9;

sub original { int(rand($high))+1 }
sub fixed { int(rand($high-$low+1))+$low }

($,,$\)=(" ","\n");

print "Random numbers between $low and $high.";

print "original:", map original(), 1..20;
print "   fixed:", map    fixed(), 1..20;