our @array = qw(1 2 3 4);

my $grammar = q{
   { our @a }
   start : rule1 rule2 ruleX
   ruleX : 'keyword' /[a-z]+/ {
       local *a = \@::{$item[2]};
       print @a
   } 
......
}

 this will print "1234".