@colors = (black, white);
$flipflop=0;
while ($n < $nmax) {
  print("<tr color=\"$colors[$flipflop]\"><td>content</td></tr>");
  $flipflop = 1 - $flipflop;
}