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