my @colors = qw/red green blue cyan/;
print "I have " . scalar @colors . " colors\n";