$baton = int (rand ($no_of_threads)) until $baton != $id;

##</code><code>##

$baton = int (rand ($no_of_sprinters)) until $baton != 0;

##</code><code>##

$baton = int (rand ($no_of_sprinters)) + 1;