#!/usr/bin/perl 

use strict;
use warnings;
use HTML::Template;

my $rec = [
  {
    name => 'field1',
    value => 'one',
  },
  {
    name => 'field2',
    value => 'two',
  },
    {
    name => 'field3',
    value => 'three',
  },
    {
    name => 'field4',
    value => 'four',
  },
];

my $t = HTML::Template->new(filehandle => *DATA);
$t->param(rec => $rec);
print $t->output;

__DATA__  
<form>
<TMPL_LOOP NAME="rec">
<input 
  TYPE="text" 
  NAME="<TMPL_VAR NAME="name">" 
  VALUE="<TMPL_VAR NAME="value">"
/>
</TMPL_LOOP>
</form>

##</code><code>##

---------- Capture Output ----------
> "C:\Perl\bin\perl.exe" _new.pl
<form>

<input 
  TYPE="text" 
  NAME="field1" 
  VALUE="one"
/>

<input 
  TYPE="text" 
  NAME="field2" 
  VALUE="two"
/>

<input 
  TYPE="text" 
  NAME="field3" 
  VALUE="three"
/>

<input 
  TYPE="text" 
  NAME="field4" 
  VALUE="four"
/>

</form

> Terminated with exit code 0.