my $class = ref($proto) || $proto;

##</code><code>##

package MyGlobalHash;
use base Exporter;
@EXPORT = qw(%MyGlobalHash);
%MyGlobalHash = (foo => "Hello, world!\n");
1;

##</code><code>##

package RandomPackage;
use MyGlobalHash;
...
print $MyGlobalHash{"foo"};