Why you are using single quote on line 33 ? I think you do not need this, try to remove the single quote and use only this:
33 print "($mdy,$nomname,$nomemail,$nominst,$submitname,$submitemail, $submitcat,$submitinst,$submitdiv,$mentor,$ptcare,$clinres, $comments)";