use Template;
my $vars = { a => 0 };
my $tt2 = Template->new();
my $template = "[% SET data.a=data.a+1 %] A is now [% data.a %]\n";
$tt2->process( \$template, { data => $vars } ) for 1..5;