print "<TR><TD>",
   textfield(-name=>"key$i", -size=>13, -default=>$key),
   "</TR>\n"
;