my $package = ref($foo);
if ($package) {
    no strict 'refs';
    @global_array = @{"$package::A_GLOBAL_ARRAY"};
}