sub doc_vorhanden {
    my ( $identnr, @docnames ) = @_;

...

    foreach my $docname ( @docnames )
    {
        my ( $doctyp, $head_de ) = @{ $daten_ref->{$identnr}->{$docname}->{ qw( doctyp head_de ) } }

        # hier die Ausgabe dazu
    }