my $color = $colors[rand @colors];

##</code><code>##

my $color = $colors[int rand @colors];