Forget this Perl script for now and just run your queries through PhpMyAdmin. If the query produced 100k+ result rows than you either got the query wrong or that's just simply the amount of data in your database now. You need to look at the ouput in PhPMyAdmin to see if that makes sense. It's pretty much impossible to tell just from the script without knowing your database schema.
There are two queries in that script: are both producing "the wrong amount" of data?
Once you are satisfied that these queries extract the data you need and you go back to working with this script to process the outputs, you do need to work on those errors of course. There can't be that many in a short script like that. Don't be fooled by a screen-full of error messages. Often, this is just caused by one simple syntax error that could easily be identified if you posted your error messages here.
But as I said: you need to figure out those queries first. Otherwise, the whole Perl script is pointless.