use strict; use warnings; my @colors = qw(blue red orange brown); for my $color (@colors) { print "$color\n"; }