Timtowtdi:

use Tie::Cycle;
tie my $color, 'Tie::Cycle', [qw(red green blue)];
for my $row (@rows){
    print qq{<tr bgcolor="$color">$row</tr>\n};
}
[download]

But normally you use a template anyway...