<perl>
get;

@summe;
while(get_next){
   $summe[$Lektion][$Richtig]++;
   $maxrichtig=$Richtig if $maxrichtig<$Richtig;
 }

foreach $x (1..5){ #lektionen
foreach $y (1..$maxrichtig){ #richtig
  out "Lektion $x $y mal richtige: ".($summe[$x][$y]||0)."<br>";  
}
}
</perl>