I don't have any experience with Parse::RecDescent, but couldn't you just use the array as the basis to generate a grammar rule? For example:

    my @colors = qw(red green blue);
    my $rule = "color: " . join " | ", map "'$_'", @colors;
[download]