use strict 'vars';

   BEGIN { package pkg; *main::foo = \@main::foo }
   print "Foo: (@foo)\n";

   __OUTPUT__

   Foo: ()