...
my $table = qq|<table width="300" border="1" bgcolor="#1A1A1A" cellpad
+ding="0" cellspacing="0">|;
   for (my $i=0;$i<4;$i++) {
     
     $table .= qq| <tr>
                         <td align="center">&nbsp;  
                           <input type="text" name="acc_$i" style="wid
+th: 245px;" maxlength="300" />
                          </td>
                       </tr>|;
    }   
 $table.="</table>";  
 
  $vars->{'account_names'} = $table; 
...

# add this to the template file: [% account_names %]
[download]

Noooo ! - This is completely against the philosophy of using templates ! Defeats the purpose! Sacrilege! Blasphemy!

The Ayatollas of Templatistan will put out a Fatwa against you if you commit this haraam.

The whole idea is to separate the Display (HTML markup) from the Data (Data structure in your code).

Your code should NOT have ANY markup.

However - Template::Simple is rather retarded, when it comes to rendering ARRAY's - it simply mashes arrays together (using join ''), which is totally useless.

So, you have to resort to contortions like the one below. This goes in your template:

 <table width="300" border="1" bgcolor="#1A1A1A" cellpadding="0" cells
+pacing="0"> 
 [% START account %]
 <tr>
   <td align="center">&nbsp;
      <input type="text" name="[% row %]" style="width: 245px;" maxlen
+gth="300" />
   </td>
  </tr>
 [% END account %] 
</table>
[download]

and this goes in your code:

for (0..3){ 
  push @{ $vars->{account} }, {row=> "This is acccount # $_" }; 
}
[download]

Note the artificial use of an anonymous hashref, in order to make this work.

            "Battle not with trolls, lest ye become a troll; and if you gaze into the Internet, the Internet gazes also into you."
        -Friedrich Nietzsche: A Dynamic Translation

I come back here to check on this code question, but I have to say that your comment was better than the code answer you provided, it is funny, and once again thanks for your response!