foreach

foreach $color (qw! red green blue yellow !) {
    print "I like the color $color.\n";
}