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?.

I have problems to completely understand your request; I hope my guess will be helpful to you.

You could use a global hash which uses the module's name as key and the object as value.

#! /opt/perl/bin/perl
# vim: set ts=4 sw=4 sts=4 et nu:
use strict;
use warnings;

use Data::Dumper;

my %object;
my @modules = qw( CGI );


for my $mod ( @modules ) {
    eval "use $mod; \$object{$mod} = $mod->new; 1;" or die "eval faile
+d: $@\n";
}

print Dumper \%object;
[download]

• Why it's stupid to `use a variable as a variable name` - part 1
• Why it's stupid to `use a variable as a variable name` - part 2
• Why it's stupid to `use a variable as a variable name` - part 3

I have a array variable that have name of modules that i needed. I m geting these module names through reading array content in loop and calling the module methods.

Problem is i need to create global object variable for all the module name that are in array.

array size is dynamic it could have a single module name or n number of module name. basicaly. basicaly the name of module that is in as array value is same as my moudle name. how to create dynamic global variable that can individualy hold the module object. and from this objects i can call there other methods. thanks,

package X;

use vars qw(@modules);
@modules = qw(A B C);

1;

package U;
use X;
warn $_ for @X::modules;

1;
[download]