in reply to printing records in MySQL

Read the DBI documentation. You're using fetchrow_array once. You have a few options:
  1. my $data = fetchall_arrayref({})

    This has the advantage of pulling it back into something HTML::Template understands.

  2. while (my @row = $sth->fetchrow_array)

    This is useful if you want to do processing on each row as it comes back instead of pulling everything back all at once

Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.

In Section Seekers of Perl Wisdom