Instead, change your package to export a bunch of variables to whatever package you are currently using:

package My::DataBase::Variables;
use base qw(Exporter);
use vars qw( @EXPORT );
BEGIN {
    @EXPORT= qw(
        $this
        $that
        $theOther
        long list of variables
    );
}
use vars @EXPORT;
[download]

then

use My::DataBase::Variables;
print "$this is not $that nor $theOther\n";
[download]

You can export these variables to any number of packages and change a value via one package and that value will be seen by the other packages.

        - tye (but my friends call me "Tye")