in reply to Fetchrow_hash/array question with DBI/Perl

First, there's no need to call fetchrow_hashref before calling fetchrow_array. Second, you could just call fetchall_arrayref and just iterate over the results. (That will return you a referrence to an array of arrayrefs) 
$sth_m->execute or die "executing: ", $dbh_m->errstr;

my $table = $sth_m->fetchall_arrayref;
foreach my $row (@$table) {
    print "    <tr>";
    print "        <td>$row->[0]</td>";
    print "        <td>$row->[1] $row->[2]</td>";
    print "        <td>$row->[3]</td>";
    print "        <td>$row->[4]</td>";
    print "        <td>$row->[5]</td>";
    print "        <td>$row->[6]</td>";
    print "        <td>$row->[7]</td>";
    print "    </tr>";
}

[download]
------------
:Wq
Not an editor command: Wq

[download]

In Section Seekers of Perl Wisdom