#furiously waving hand!
my %fields = get_fields(); # field name => old value

my @fields;
for(keys %fields )
{
  push @fields, { fname => $_, fvalue => $fields{$_} };
}

my $tmpl = HTML::Template->new();
$tmpl->params( old_fields => \@fields );
print $tmpl->output;

##</code><code>##

<tmpl_loop name='old_fields'>
  <input type='text' name='<tmpl_var fname>' value='<tmpl_var fvalue>'
</tmpl_loop>