Select Code to Download

my @arr=("jesus","heaven");
 
{
...
}
 
print $arr[t::NAME],$arr[t::ADDRESS];

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