Perl: Cross pl variable, hashtable, array

$ cat test.pl
use strict;

require "test2.pl";

our $variable;
print $variable;

$ cat test2.pl
our $variable = 42;

$perl test.pl
42

-------------------------
**
headers.pl
**
our @arr = ();
our $ht = {};
push($arr, "A");
$ht->{"A"} = "value";

**
main.pl
**
require "headers.pl";
our @arr;
our $ht;

print scalar(@arr)."\n";
print "$ht->{$arr[0]}";