$sth->bind_param(14, $girls)
    );
          or die "Could not prepare SQL: " . $dbh->errstr();
[download]

Wrong, wrong, wrong!!! (sigh - it's too early in the morning :/)

Anyway, it looks like line 48 is completely meaningless, so you should just remove it altogether.

or die "Could not prepare SQL: " . $dbh->errstr();
[download]

So what you actually want is:

   $sth->bind_param(14, $girls);
 
    $sth->execute(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14)
      or die "Could not execute SQL: " . $dbh->errstr();
[download]

Note that the trailing semi-colon has been removed from the $sth->execute line.

Cheers,
Darren :)