Подскажите чайнику, как можно короче написать:

#!/usr/local/bin/perl
require 'sql.pl';
require 'html.pl';
use CGI qw/:standard/;
my $_IN = new CGI;
use HTML::Template::Pro;

sql_execute("SELECT User, Password, Uid FROM users");

my @users = (undef, undef, undef);
$sql_res->bind_columns( \$user, \$pass, \$uid);

my @loop_data = ();
while ($sql_res->fetchrow_arrayref) {
            my %row_data;
            $row_data{NAME} = $user;
            $row_data{PASS} = $pass;
            $row_data{UID} = $uid;
            push(@loop_data, \%row_data);
            }

$tmpl_users_table->param(THIS_LOOP => \@loop_data);
print $tmpl_users_table->output;            

  Задача - передать в THIS_LOOP ссылку на хэш, дабы в шаблоне заЛУУПить вывод массива данных из БД.

Шаблон:
<table width="200" border="1" cellspacing="0" cellpadding="0">
<tr><th scope="col">Users</th><th scope="col">Passwords</th><th scope="col">Uids</th></tr>
<TMPL_LOOP NAME="THIS_LOOP">
<tr><td><TMPL_VAR NAME="NAME"></td><td><TMPL_VAR NAME="PASS"></td><td><TMPL_VAR NAME="UID"></td></tr>
</TMPL_LOOP>
</table>