my ($cnf,$thread) = @_;
    if ($thread && !$db_connections{$cnf}{$thread}) {
        my $control = "dbh".$cnf.$thread;
        #  ^^^^^^^^
        $$control = DBI->connect(
        #^^^^^^^^
            "dbi:Pg:database=dirotext;host=domain.com", 'user', 'pass' 
        ) or die $DBI::errstr;