Call list for [% today %]
<p>
[% FOREACH user IN data %]
     Be sure to call [% user.ulname %], [% user.ufname %]
[% END %]

##</code><code>##

Call list for [% today %]
<p>
[% FOREACH user IN data.values %]
     Be sure to call [% user.ulname %], [% user.ufname %]
[% END %]

##</code><code>##

# build data structure
my @data;
while (($user_id, $ufname, $ulname) = $sth->fetchrow_array()) {
     push @data, {
          ufname => $ufname,
          ulname => $ulname
     }
}