Select Code to Download

my @colors = qw(red green blue yellow pink purple brown);
my $count = @colors;
...
    print $num, ":  after: @colors\n--\n";
}
print "@colors \n";