use strict 'vars';

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