$OpenFileFillWeeklyTimeArray::WeeklyTimeArrayRef

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;

{   package SomeVeryLongPackageName::ToBeBoringToType;

    our $PackageArrayRef = [];

    sub init {
        push @$PackageArrayRef, localtime, @_;
    }

}

our $SVLPNTBBTT_PackageArrayRef; # How did you tell Perl this is the same ref?

SomeVeryLongPackageName::ToBeBoringToType::init(1);
print join "\n", @$SomeVeryLongPackageName::ToBeBoringToType::PackageArrayRef;
print join "\n", @$SVLPNTBBTT_PackageArrayRef;