my @colors = qw(lavender lightblue honeydew);
my $color = $colors[rand @colors];
return $color;