package MyModule; our @SharedArray = (1, 2, 3, 4); # shared my @PrivateArray = (5, 6, 7, 8); # not shared 1; #### use MyModule; print MyModule::SharedArray[1]; # prints 2