# wenn es nur 'buch' sein soll:
for my $typ ( qw( buch ) ) {
# wenn es alle typen sein sollen;
#for my $typ ( keys %$ref ) {

  for my $idx ( keys %{$ref->{$typ}} ) {

    for my $feld ( qw( titel beschreibung ) ) {

      # wenn es alle typen sein sollen, fehlen noch einige abfragen, ob 
      # beispielsweise "titel" und "beschreibung" wirklich existieren
      print $ref->{$typ}->{$idx}->{$feld}, $/;

    }
  }
}