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

print OUTPUT $q->table({-cellpadding => 3},
                 $table_info,
                 );