my $j = 2;
for ($i=1; $i<=3; $i++) {#add'l images
   $LabelName = $ImageName . $i;
print <<HTML;
   <TR><TD ALIGN="right">Image File $j:</td><TD>
   <input name="$LabelName" id="$LabelName" size="50" type="file"  /> Current Image:<FONT COLOR="RED"> $FormData{$LabelName}</font>
   &nbsp;&nbsp;<input name="$DeleteImageName$i" type="checkbox" value="yes"/> Delete Image
   </td></tr>
HTML
$j++;
}