Select Code to Download

package private;
our $my_scalar = 'my scalar';
...
ARRAYS => private::my_array
SCALARS => private::my_scalar, private::my_array, private::my_hash
HASHES => private::my_hash

package private;
our $my_scalar = 'my scalar';
...
# prints the following
ARRAY portion of a scalar glob: $VAR1 = undef;
SCALAR portion of an array glob: $VAR1 = \undef;