Can't use string ("databasename ") as a HASH ref while "strict refs" in use at /usr/lib/cgi-bin/bc/supporters.cgi line 264.

##</code><code>##

my($host) = $config{'db'}{'db_host_name'};

##</code><code>##

while (<DB>) {
  chomp;
  next if /^\s*\#/;
  next if /^\s*$/;
  unless (/=/) {  
    die "invalid variable assignment in supporters.db: $_";
  }
  my ($key, $val) = split(/\s*=\s*/,$_,2);
  $key =~ s/^\s*//;
  $val =~ s/ *$//g; 
  $config{'db'}{"$key"} = $val;
  $config{"$key"} = $val;
}
close DB;