Seems to work fine for me:

#!/usr/bin/perl -wT
use strict;

package Foo;
use vars qw(@foo);
@foo = qw(a b c);    # global package variable @Foo::foo

package Bar;
my @bar = @Foo::foo; # assigned to lexical variable 

print "@bar\n";      # <==== prints 'a b c'
[download]

-Blake