So what do I do?

Just show your code. It sounds more like a problem with SQL than with Perl but I suppose it's not very complicated in any case.