# in your script.pl my $tbl1_array_ref = $dbh->selectall_arrayref($sql_tbl1, {Slice=>{}}, @bind_values); my $tbl2_array_ref = $dbh->selectall_arrayref($sql_tbl2, {Slice=>{}}, @bind_values); $tmpl_obj->param( TABLE1_DATA => $tbl1_array_ref ); $tmpl_obj->param( TABLE2_DATA => $tbl2_array_ref );