Your loop is dependent on the file handle TEMP currently. It won't generate a single row after that. I'm afraid I'm not sure how to help there since the code looks pretty much a mess thanks to CGI.pm. (There's a map where usually a for loop would be.)

I suppose something as simple as changing the map from map { ... } <TEMP> to map { ... } <TEMP>, "" (where "" is a dummy CSV row) would work but then it would only add one row and if the user wants to add multiple you would have to keep count on how many are needed and $ENV{DEITY}, I hate doing user interfaces with HTML forms. (But I hear HTML::FormFu might be pleasant to use.)