use strict; use Exporter; package Base; my @var = qw( $MC_CONFIG_DBI_DRIVER $MC_CONFIG_DB_NAME $MC_CONFIG_DB_USER $MC_CONFIG_DB_PWD $MC_CONFIG_FILE $MC_CONFIG_FEED_LOGS $MC_CONFIG_ARCHIVE_LOGS ); # FAILS ALSO { no strict 'refs'; map { our $$_ } @var; } use vars @var; # FAILS our @ISA = qw(Exporter); # WORKS our @EXPORT = @var;