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;

##</code><code>##

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