in reply to Alternating colors for HTML Table's

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

[download]

In Section Seekers of Perl Wisdom