Hi ginju75 - Even under use strict (which doesn't normally allow globals), you can declare globals with use vars qw($foo %bar) . Alternatively, you can 'switch off' this aspect of strict, within a limited scope, using no strict "vars".

But looking at your code, it doesn't look as though @X needs to be global - I'd rewrite it like this:

use strict;

my $test = 'test';
my @X = values();

guest2(\@X, $test);

sub values (
    my @Y = qw(something something);
    return @Y;
)

sub guest2 (
    my @X = @{shift()};  # these copies of @X and $test
    my $test = shift ;   #  don't exist outside guest2()


}
[download]

Have a read of perlman:lib:strict and perlman:perlsub.

hth,
andy.