foreach $dbs ("db1", "db2")

get "sort=Datum", "$dbs";
while (get_next ("$dbs"))
{
    %{$records{$Datum}{$i++}}=%_loop;
}
}

{
  $x=$records{$datum};
  foreach $id(keys %{$x})
  {
    $y=$$x{$id};
    out datum($$y{Datum},"kurz");
    out "<br>$$y{_id}, $$y{Rubrik}<br><br>";
    ### oder alle Felder des Datensatzes durchgehen 
    #foreach $feld(keys %{$y})
    #{
    #  out "$feld=>".$$y{$feld}."<br>";
    #}
    ###
  }
}