--> in the external module, embedded in a sub:

# Get user realnames for project
my $sql = "SELECT DISTINCT realname FROM database.time_data WHERE version='$Version' AND product_id='$ProductID' AND milestone='$MileStone'"; #user_id,
	
my $sth = $dbh->prepare($sql);
	
$sth->execute();
	
while(my @RowAdmin = $sth->fetchrow_array())
{
   push (@$AdminUsers, $RowAdmin[0]);
}

my $vars2 = {
    Users => [@$AdminUsers],
    Dates => [
              {
                  Day      => 'day1',
                  EndDates => [qw(dl1 dl2 dl3 dl4 dl5)],
              },
              {
                  Day      => 'day2',
                  EndDates => [qw(dl6 dl7 dl8 dl9 dl10)],
              },
              {
                  Day      => 'day3',
                  EndDates => [qw(dl11 dl12 dl13 dl14 dl15)],
              },
             ],
};

return($vars2);

--> in the main script (buglist.cgi):

# call subroutine
my $vars2 = Admin(\@ReturnValues, \@AdminUsers);

# pass results to template
$vars->{'vars2'} = $vars2;

--> in the template (table.html.tmpl):

<table class=table>
   <tr class="[% loop.parity %]">
      <td class=title_td colspan=6>Coordinator overview:</td>
   </tr>
   <tr class="[% loop.parity %]">
      <td class=title_td>date</td>
      [% FOREACH realname IN vars2.Users %]
         [% FOREACH realname IN realname %]
            <td class=title_td>[% realname %]</td>
         [% END %]
      [% END %]
   </tr>
   [% FOREACH row IN vars2.Dates %]
      <tr class="[% loop.parity %]">
         <td class=var_td>[% row.Day %]</td>
         [% FOREACH date IN row.EndDates %]
            <td class=var_td>[% date %]</td>
         [% END %]
      </tr>
   [% END %]
</table>