Generally the hash structure provides a more effective way to deal with the retrieved data.
I'm still learning the basic of PERL, but I've been using hashes
to deal the data retrieved from the database.
So it would be interesting to use hashes instead of arrays. I really don't know if in your case the use of arrays is mandatory.
but you could do, for example creating a hash like in:
my %rpt = ( ) ;
Then, building the hash with the information in the fields:
while (my @row = $sthNames->fetchrow_array ()) {
    my $P = \%{$rpt{NAME}{$row[0]}};
    $P->{PHONE1} = $row[1];
    $P->{PHONE2} = $row[2];
}

[download]

And then, when going to use the information, just use the hash you created, like this:
...
foreach my $name (keys %{$rpt{NAME}}) {
    my $P = \%{$rpt{NAME}{$name}};
    $html .= qq {
         <TR>
               <TD>$name</TD>
               <TD>$p->{PHONE1}</TD>
               <TD>$P->{PHONE2}</TD>
             </TR>
    };
}

[download]

In reply to Re^2: Mysql Issues (newb) by r34d0nl1
in thread Mysql Issues (newb) by mlh2

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.