my @COLORS = qw( white red blue green yellow );
return exists $COLORS[$i] ? $COLORS[$i] : $COLORS[0];