# wenn es nur 'buch' sein soll:
for my $typ ( qw( buch ) ) {
    my $buecher = $ref->{$typ};

    for my $idx ( keys %$buecher) {
        my $buch= $buecher->{$idx};

        for my $feld ( qw( titel beschreibung ) ) {
            print $buch->{$feld}, $/;
        }
    }
}