You're not reproducing the same setup. Instead of:

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

you should use the values virtual method:

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

which gives you back the list that FOREACH iterates on.

As an alternative, you should modify your Perl code:

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

and then pass \@data instead of \%data.

Which way to go is up to you, but keep in mind that using the hash will destroy record order (which does not seem an issue in your case, you don't specify any ORDER BY clause in your SQL query) and using an array won't let you address every record by user_id. Just to name a few differences.