sub ausgabe_suchenerg { my ($daten) = @_; print "\FORMULAR\ ~; print ""; print '
Bestellhinweis
'; print qq~
~; print "

Ident-Nummer:"; print ''; print ''; print ''; print ''; print '

'; print ''; foreach my $ptr (@{$daten}) { print ''; print qq~~; } print '
doc_typ doc_name headline
$ptr->{doctyp} $ptr->{docname} $ptr->{head}
'; print '

'; print "

"; }