package Big::Long::Library::Name { our $scalar = "Foo"; our @array = qw/ Bar Quz /; our %hash = ( Baz => 42 ); sub function { print "Hello\n" } } package MyPackage { BEGIN { *MyPackage::blah = \&Big::Long::Library::Name::function; package Foo; *MyPackage::myscalar = \$Big::Long::Library::Name::scalar; *MyPackage::array = \@Big::Long::Library::Name::array; *MyPackage::hash = \%Big::Long::Library::Name::hash; } print "$myscalar @array $hash{Baz}\n"; blah; }