langsam wird es durch
my $r = int(rand(2));
wobei ich die Zahl 2 auf 123 ausgebessert habe, sonst
liegen die Nummern zu nah zusammen.