my @values = (100..200);

my $i = int( rand(@values) );
my $j = $i;
$j = int( rand(@values) ) while $i == $j;