<table class="striped"><tbody> % for my $res (@{$transit_fyi}) { % my ($info, $via, $via_arr) = @{$res}; % $via_arr = $via_arr ? $via_arr->strftime('%H:%M') : q{}; <tr> <td> %= $info->{line} </td> <td> %= $via </td> <td> %= $info->{departure}->strftime('%H:%M') → %= $via_arr % if ($info->{departure_delay}) { %= sprintf('(%+d)', $info->{departure_delay}) % } </td> </tr> % } </tbody></table>