while DB-Record lesen {
  $m[$monat] = $wert;

  $rec = {}
  rec->{key} = $bereich . $jahr;
  $rec->{bereich} = $bereich;
  $rec->{jahr} = $jahr;
  $rec-{monate} = [ @m ];

}