> perl -MO=Deparse /tmp/tst.pl
sub t::NAME () { 0 }
sub t::ADDRESS () { 1 }
my(@arr) = ('jesus', 'heaven');
{
    package t;
    print $arr[0], $arr[1];
}
print $arr[0], $arr[1];
/tmp/tst.pl syntax OK