my  @tables;

      
for (my $i=1; $i<=$spiel_NR->[0][0]; $i++) {
  $stm=qq!SELECT person.anzeige_name, frame_1_1, frame_1_2, frame_2_1, frame_2_2, frame_3_1, frame_3_2, frame_4_2, frame_5_1, frame_5_2, frame_6_1, frame_6_2, frame_7_1, frame_7_2, frame_8_1, frame_8_2, frame_9_1, frame_9_2, frame_10_1, frame_10_2, frame_10_3 FROM spiel, person WHERE person.pers_id=spiel.pers_id
  AND datum ="$spiel_NR->[0][1]" AND spiel_nr ="$i"!;
  print qq!<br>$stm<br><br>!;
  my $spiel = $dbh->selectall_arrayref($stm);
  my %row;
    foreach my $games (@{$spiel}){
    my %hash;
      $hash{'NAME'}       = $games->[0];
      $hash{'FRAME_1_1'}  = $games->[1];
      $hash{'FRAME_1_2'}  = $games->[2];
      $hash{'FRAME_2_1'}  = $games->[3];
      $hash{'FRAME_2_2'}  = $games->[4];
      $hash{'FRAME_3_1'}  = $games->[5];
      $hash{'FRAME_3_2'}  = $games->[6];
         $row{'SPIEL'} = %hash;    
    }
    push (@tables, \%row);
 }
  $template->param('ANZAHL_SPIELE'=>\@tables);