my @vars = ($mdy, $nomname, $nomemail, $nominst, $submitname,
            $submitemail, $submitcat, $submitinst, $submitdiv,
            $mentor, $ptcare, $clinres, $comments);
print $_ || "Variable has no value\n" for(@vars);