# # .. from perl .. # $tt()->process( 'text.tt', { data => ( name => 'John', age => '18', grades => ( 98, 57, 79 ) ) } ) or die $tt->error(); # # .. in template file .. # Hello, [% data.name %], your third test grade was [% data.grades.2 %] Your grades so far have been: [% FOREACH grade = data.grades %] [% grade %] [% END %]