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