use strict;
use warnings;

package PACKAGEA::PACKAGEB;

our @test = qw(a b c);
our $test = 'def';
our %tset = ('foo' => 'bar');
*PI = \'3.14';
our $PI;

print(@test, $/);
print($test, $/);
print(%tset, $/);
print($PI, $/);

package main;