sub bench_randomx () {
    # ALLE VERFAHREN
    my $targetcount = 400;     # Anzahl der Elemente, die "ausgewählt" werden müssen
    
    # 2. VARIANTE
    my $targetlimit = 10;    # max. Anzahl gleichzeitig auswählbarer Elemente
    my @cache =();            # cache der Zufallszahlen
    my $cached    = 0;
    
    &println ("Teste auf $targetcount rand()/cachedrand Elemente,");    
    Benchmark::cmpthese(-1, {     
        # Ziel ist es beides Mal, 150 Elemente vorzunehmen
        'random WHILE (1b)'   => sub { 
               
 my $i=0;
               
 while ($targetcount >$i) {
               
     int(rand($targetlimit)); 1;
               
     $i++;
               
 }
            },
        ' cachedrand (2)'       => sub { 
               
 if (!$cached) {
               
     print "initcache";
               
     my $i=0;
               
     while ($targetlimit >$i) {
               
         push (@cache,int(rand($targetlimit)));
               
         $i++;
               
     }    
               
     $cached=1;
               
 } 
               
 my $targeting = 0;
               
 my $tcount = $targetcount;
               
 while ($tcount>0) {
               
     $cache[$targeting];
               
     1;
               
     if (++$targeting== $targetlimit) { $targeting=0;}
               
     $tcount--;
               
 }
            },
        }
    );
    &println ("\nReihenfolge der Elemente in (2):");
    &println (join(",",@cache));
}

440 0.000582 0.000000    88:  if (++$targeting== $targetlimit) {
400 0.000554 0.000000    86:  $cache[$targeting];
400 0.000549 0.000000    89:  $tcount--;

wird konfrontiert mit: 
800 0.000288 0.000000    72:  int(rand($targetlimit)); 1;

      400 0.000457 0.016000    87:  1;