Perl-Hash nach JSON

[basti123]

Moin Moin!

Ich haette gern soetwas zurück:

"1": [ {
      "author": "author1",
      "title": "title1"
    }],
   "2": [ {
      "author": "author2",
      "title": "title2"
    }],
   "3": [ {
      "author": "author3",
      "title": "title3"
    }]

> >   
> >   
> > Geht das?  
>   
> Das entspricht nicht der Perl-Struktur.  

Müsste ich dann innerhalb des normalen Arrays noch ein Hash-Array aufbauen, damit ich das obige Resultat erhalte?  
  
Also sowas wie  
  
~~~perl
  
while (($id, $author, $title) = $dbh->fetchrow_array()) {  
   $hash{$id} = [$authorHash{'author'} => $author, $titleHash{'title'} => $title];  
}  
  

~~~danke,  
Basti