my $color = splice(@colors, rand @colors, 1);