use strict 'vars';

   package somePkg;
      BEGIN { *main::foo = \@main::foo }

   package main;
      print "Foo: (@foo)\n";