Select Code to Download

while (1) {
    my @random_int = sort {$b <=> $a} map {int(rand(100))} 0..1;
...

    print "Well done! You are correct!\n\n" if $correct;
}