Good code but you could make it a little bit more open by removing the 2 and replace it with $#colors

my @colors=( '#FFFFFF', '#DDDDFF' );
my $row = 0;
while ( @data = ... ) {
  my $rowcolor = $colors[ $row++ % ($#colors + 1) ];
  print ...
}
[download]

Then if you would like to add more colors to rotation you do not need to change anything besides adding the color.

--BigJoe

Learn patience, you must.
Young PerlMonk, craves Not these things.
Use the source Luke.