[% FOREACH recipient IN call_list %]
    \textbf{recipient.email} & box & recipient.uid: recipient.name & recipient.fname recipient.lname & recipient.phones \\
    \hline
    [% FOREACH sponsor IN call_list.recipient.upstream %]
        \multicolumn{2}{||r|}{sponsor.email} & sponsor.uid: sponsor.name & sponsor.fname sponsor.lname & sponsor.phones \\
    [% END %]
    \hline
[% END %]

##</code><code>##

sub produce_report {
  my $call_list = shift;
  my $vars = { 'call_list' => $call_list };
  print Dumper($vars);
  $tt->process('nightly_bounced_emails_report.tex.tt2',
                $vars,
                'bounced_email_report.pdf',
                binmode => 1) || die $tt->error();

  return;
}

##</code><code>##

    \textbf{recipient.email} & box & recipient.uid: recipient.name & recipient.fname recipient.lname & recipient.phones \\
    \hline

    \hline

    \textbf{recipient.email} & box & recipient.uid: recipient.name & recipient.fname recipient.lname & recipient.phones \\
    \hline

    \hline