my @array = qw(red blue green yellow black white purple brown orange gray);
foreach (@array) {
    do_something_with($_);
}