my @colors = qw(blue green);
my $i = 0;
foreach my $row (@rows)
{
    print "<TR BGCOLOR=$colors[$i++ % @colors]>$row</TR>";
}