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