my $grammar = q[
    order: quantity color item
    quantity: /\d+/
    color: '] . join(q['|'],@colors) . q['
    item: 'pen' | 'pencil'
];