package my_global; require Exporter; my @var_arr = qw( $var4 $var5 $var6 ); our $VERSION = 1.00; our @ISA = qw(Exporter); our @EXPORT_OK = (@var_arr, qw( $var1 $var2 $var3 )); our @EXPORT = @EXPORT_OK; # Just to test... $var1 = "hi"; $var4 = "bye"; 1;