while ($dy < 32) {
    $table_info .= $q->Tr({
                           -align => 'left',
                           ($dow == 0 || $dow == 6 ? (-color => 'yellow') : () ),
                          },
                          $q->th([$...]),
    );
    $dy++;
}