[%- items = ['one', 'two', 'three'] -%]
# Output an array data structure in perl.
@array = (
[%- FOREACH item IN items -%]
[%- IF loop.last -%]
'[%- item -%]'
[%- ELSE -%]
'[%- item -%]',
[%- END -%]
[%- END -%]);