sub GetQuestion {
         my $PointValue=shift(@_);
         my $TotalFiles=shift(@_);
         my $QuestionDBinfo=shift(@_);

         if (rand(15) == 0) { $PointValue *= 2; }
         my $FileNum = int(rand($TotalFiles))+1;
         my $QNum = int(rand($$QuestionDBinfo{$FileNum}[1]))+1;
         my $QuestionLine; # hier war der Hauptfehler "$QuestionLine" existierte nur innerhalb von "for"
         open(QFILE, $$QuestionDBinfo{$FileNum}[0]) or die "Error opening the trivia file\n";
         for($i = 0; $i < $QNum; $i += 1) {
                 $QuestionLine = <QFILE>;
         }
         close(QFILE);
         die "No string read from the trivia file!" if ($QuestionLine eq '');
         # Trenner ermitteln?
         my $d = substr($QuestionLine,0,1);
         # was machst du hier???
         my $Question = (split(/[$d][$d]/,$QuestionLine))[1];
         my $Category = (split(/[$d]/,$QuestionLine))[1];
         my $Answer = (split(/[$d]/,$QuestionLine))[2];
         # so wie das da steht macht es keinen Sinn.
         # gib mal eine Beispielzeile.
         # wenn ich den Code richtig interpretiere sieht eine Questionline so aus:
         # ;Kategorie;Frage;Antwort
         # Ein korrekter Trenner sähe wohl so aus:
         # my ($Category,$Question,$Answer)=(split($d,$QuestionLine))[1,2,3];
         my $QID = "F".$FileNum.".Q".$QNum;
         chomp($Question);
         if ($Category eq "Scramble") {
                 my @letters = ();
                 for($i=0;$i<length($Question);$i+=1) {
                         push(@letters,substr($Question,$i,1));
                 }
                 @letters = shuffle(@letters);
                 $Question = "";
                 for($i=0;$i<scalar(@letters);$i+=1) {
                         $Question = $Question." ".$letters[$i];
                 }
                 $Question = "Unscramble this word: ".$Question;
                 my $l = length($Answer) - 5;
                 while ($l >= 0) {
                         if (int(rand(2)) == 1) { $PointValue *= 2; }
                         $l -= 3;
                 }
         }
 
         my @retval = ($PointValue, $QID, $Category, $Question, $Answer);
 
         return @retval;
 }

# Aufruf:
@list=GetQuestion($ScoreValues[rand($#ScoreValues)],$TotalFiles,\@QuestionDBinfo);