Just to be the school marm w/ some suggestions (besides indenting) to make your code a bit more perlish: 
while ($in{$modContactTitle} =~ /[\s]+$/)
  {
  chop($in{$modContactTitle});
  }

[download]
is really:
$in{$modContactTitle} =~ s/[\s]+$//;<br>
# yes the '[]' aren't necessary, but are  helpful

[download]
and:
$error = ++$error;
is:
$error++;
and
[0-9]

[download]
is \d,
you can check for 5 digits:
$modContactDeskPH3 =~ /\d{5}/
in one test (you check length and then digits but your first error msg say 'needs 5 digits'),
often:
if (length($in{$modContactEmail}) > 0)
is:
if ($in{$modContactEmail})
and are you sure you want '1' and not $[ in:
@array = (split " ", $sites);
  print $array[1];
if ($array[1] == 7)
  { ...

[download]
Finally, this is odd
while ( @row3 = $sth3->fetchrow() ) {}

I know you're doing a lot of debugging w/ chipmunk on this so much may be an artifact of that so just take these as some hints (and not necessarily correct; TIMTOWTDI) for the future.

a

In reply to Re: form processing by a
in thread form processing by jasmine

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.