sub is_valid_color
{
  my ($color) = @_;

  foreach (@colors)
  {
    return 1 if $color eq $_;
  }
  return undef;
}