As I looked at how you might rework the existing code so that you're only generating one table (you could move a map inside of your print $qry->table(.....), and eliminate the while loop, while moving the preceding table where it belongs inside of the second table), I gained a whole new appreciation for how things like HTML::Template, HTML::Embperl (and Mojolicious's "embedded Perl" templates) are a lot easier to work with.

The beauty of a nice templating system is that you can write your HTML, and wherever you need a loop and some variables, drop back into Perl (or some other quasi-language) for a moment. It's been years since I've worked with CGI, and I had forgotten how great templating systems can be by comparison to CGI.pm's native html functions.