my $r1 = 1 + int(rand(10));
my $r2 = 1 + int(rand(10));
$r2 = 1 + int(rand(10)) while $r1 == $r2;