my $a = random(10); my $b = random(10); print $a == $b;