my @colors = ('#FFFFFF', '#F0F0F0');
my $cnt = 1;

foreach my $row (@$list) {
    $row->{bgcolor} = $colors[$cnt % 2];
    # Assign $row to your template engine or AoH or whatever...
    $cnt++;
}