my $t =Template->new();
$t->process("his.tmpl", {lines=>\@vars}, "output.html" ) 
  or die $t->error();