I apologize if this answer is off point; however I am having difficulty discerning your spec from the above post.

By default, all ordinary Perl arrays that are currently in scope (i.e. have not been garbage collected) are globally visible and accessible through a fully-qualified name. However, assuming you are a good citizen and are using strict, you need to declare an array you wish to be globally visible using our. You can then interact with this array as would normally expect.

#!/usr/bin/perl
use strict;
use warnings;

package Mine;
our @array = qw(1 2 3);

package main;

print join "x", @Mine::array;
[download]

If this does not meet your spec, post a more specific question with examples of code as per How do I post a question effectively?.