....
our %glo_var = ('a'=>100,'b'=>200);
...
@EXPORT = qw(%glo_var ... members);
...
1;

##</code><code>##

use SampleModule::TestMod;
print $glo_var{'a'};exit;