I would start by saying that you should get familiar with strict and my. Walk through some random tutorials, see if you can find other things to clean up. For instance while reading from the database you could try something like this:

while (my $row = $sth->fetchrow_hashref) {
    push @SearchResults, $row;
}
[download]

Does the same thing you are already doing, but it is faster, easier to read, less room for error.

In general though, your code is at the point where you need to work more on pushing the work down to Perl, factoring out common strings, etc. The biggest win is in readability, and maintainability, but generally performance will improve as well.