my $statement_doc="SELECT docname FROM tbl0011990 where ident_nr = ?";
my $sth_doc=$dbh->prepare($statement_doc) or die $DBI::errstr;
$sth_doc->execute;