my $db_name = substr($key, index($key, '_') + 1);
$db_check="$db_name.fields"; 
get "", $db_check;
my $ds_zahl = $_amount_query;
$a_debug.= "Datenbank $db_check geöffnet ($ds_zahl Datens.) ->";
$db_check=~ /\./;
if ($ds_zahl == 0)
{
$a_debug.=  " $` nicht vorhanden!<br>";
}
else
{
$a_debug.=  "$` ok! <br>";
}
undef ($db_check);
undef ($db_name);