Perl-Hash nach JSON

[basti123]

Hallo!

Ich möchte ein Perl-Hash ins JSON-Format kodieren.

Der Hash befülle ich aus einer DB-Abfrage wie folgt:

  
while (($id, $author, $title) = $dbh->fetchrow_array()) {  
   $hash{$id} = [$author, $title];  
}  

wenn ich dann ein

  
use JSON;  
print encode_json \%hash;  

ausführe, wird mir nichts auf dem Bildschirm ausgegeben.

Was mache ich/ verstehe ich falsch?

Danke,
Basti