print OUTPUT $q->table({-cellpadding => 3},
    $q->Tr({-align => 'left'}, [
        map {
          $q->Td( { ($dow == 0 || $dow == 6 ? (-color => 'yellow') : ()) },
                [ ... ] )
        } 0 .. 31
    ]),
);