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;