From the results you want, i'd just use DBIx::XHTML_Table and be done with it. But since that doesn't answer the question, here's more.

First, you have two completely different queries that produce two completely different results ... how can you expect the same loop to process both? Drop the for loop and process the first query first, the second query second. Also, you may want to experiment with a HandleError since you have your function bail_out: 
my $dbh = DBI->connect(
   'connect string','user','pass',
   {RaiseError=>1, HandleError => \&bail_out},
};

[download]
Then bail_out will be called for you when errors occur. Much nicer.

UPDATE:
I really wanted you to refer to the source for DBIx::XHTML_Table, but that is an awful lot to digest for such a simple task. If you prepare the query first, then you can access the names of the columns without having to issue 2 queries — just one. Here is a quicky that uses CGI.pm to generate all HTML: 

my $sth = $dbh->prepare("select * from foo");
$sth->execute;

print table(
   Tr [
      th($sth->{NAME}),
      map {map td($_), @$_} $sth->fetchall_arrayref
      
   ]
);

[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In reply to Re: multiple perl-mysql queries... by jeffa
in thread multiple perl-mysql queries... by kiat

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.