Perl vraag over Random order

[Verwijderd]

Momenteel zit ik met een scriptvraag(je).

Het gaat om het volgende: Ik heb ergens een soort Quiz-script gedownload, aangepast en wil 'm binnenkort gaan gebruiken. Op zich een heel leuk script, wat precies doet wat ik zou willen. Op 1 ding na echter: hij plaatst de quizvragen in random-order in plaats van op volgorde. Ik denk dat ik weet waar het zit in het script, (zie sub ShoQuiz) ik weet alleen niet goed hoe ik het zou kunnen veranderen.

met vriendelijke groet,
BM

code:

sub ShowQuiz {
    my $quiz = shift;
    my $num_ques = getNumLine("$quiz.db");

    $limit = param('number') > 0 ? param('number') : $num_ques;
    $limit = $num_ques if $limit > $num_ques;

    for ($i=0;$i<$num_ques;$i++) {$array[$i] = $i;}
    for ($i=0;$i<$num_ques;$i++) {
        $x = $array[int(rand($num_ques))];
        $y = $array[int(rand($num_ques))];

        $temp      = $array[$x];
        $array[$x] = $array[$y];
        $array[$y] = $temp;
        }

    splice(@array, $limit);

[Rowwan]

Als ik het goed begrepen heb kun je de complete loops eruit slopen... De @array bevat namelijk alle vragen....