local *var = \@array;

##</code><code>##

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".

##</code><code>##

@a --points--->  $$self{_array}