my $daten_ref; # neu
while (my @row = $sth_suchen->fetchrow_array()) {
...
# Am Ende der while-Schleife dann
$daten_ref->{ $hash{identnr} }->{ $hash{docname} } = { %hash };
} # Ende der while-Schleife

foreach my $identnr ( keys %$daten_ref ) {
    doc_vorhanden( $identnr, keys %{ $daten_ref->{$identnr} } );
}

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
    }