Package Attr; use strict; use vars qw(%struct); %struct = ( foo => 'bar'. baz => { blah => 1, } ); 1 #### #!/usr/bin/perl -w use strict; use Attr; use vars qw(%struct); *struct = \%Attr::struct;