my($frage, $antwort) = @$e; 
           
           # Eintrag schreiben 
       
       #----------     So könnte es gehen! ------------
       if ($frage =~ /^###BREAK###/) {
          set_v_pagebreaks( $row++ );
          next;
       }
       #----------

       $sheet->write($row, 2*$col, 
                    "$frage - $antwort");