title: Perl argument "user" isn't numeric in array element
body: <p>I always get the message that my argument in array isn't nummeric.
  It happens 5 times in this little code:</p>
  
  <pre><code>    my $mcnamequery = "SELECT mcID FROM tblMCName WHERE mcName = '".$mcname."'";
  $mcid = dbSelect($mcnamequery);
  print $mcid-&gt;{mcID} . "\n";
  
  my $userfsquery = "SELECT userFS FROM tblMcSubs WHERE mcFS = '".$mcid-&gt;{mcID}."'";  
  my $execute = $dbh-&gt;prepare($userfsquery);
  $execute-&gt;execute();
  
  while (@usersfs = $execute-&gt;fetchrow_array()) {
      print $usersfs['userFS'] . "\n";
  
      my $mailquery = "SELECT useremail FROM tblUser WHERE userID = '".$usersfs['userFS']."'";
      $execute2 = $dbh-&gt;prepare($mailquery);
      $execute2-&gt;execute();
      while (@mails = $execute2-&gt;fetchrow_array()) {
          $counter++;
          print $mails['useremail']. "\n";
          if($counter == 1){
                  $addresses = $mails['useremail'];
          }else{
              $addresses = $addresses. " " . $mails['useremail'];
          }   
      }   
  }
  </code></pre>
  
  <p>The first time it happens, is in this line: <code>print $usersfs['userFS'] . "\n";</code>
  After that, I receive this message everywhere where I want to use <code>$usersfs['userFS']</code> or <code>$mails['useremail']</code></p>
  
  <p>Error Messages:
  Argument "userFS" isn't numeric in array element at /tem/obm/morningcheck/jantool.pl line 520.
  Argument "userFS" isn't numeric in array element at /tem/obm/morningcheck/jantool.pl line 522.
  Argument "useremail" isn't numeric in array element at /tem/obm/morningcheck/jantool.pl line 527.
  Argument "useremail" isn't numeric in array element at /tem/obm/morningcheck/jantool.pl line 529.
  Argument "useremail" isn't numeric in array element at /tem/obm/morningcheck/jantool.pl line 531.</p>
  
  <p>Hopefully you can help me, thanks!</p>