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

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