原文： https://beginnersbook.com/2017/02/perl-foreach-loop-with-example/
foreach循环用于迭代数组/列表。
foreach var (list) {
statement(s);
}在foreach循环中，循环继续执行，直到处理指定数组的所有元素。
#!/usr/local/bin/perl
@friends = ("Ajeet", "Tom", "Steve", "Lisa", "Kev");
foreach $str (@friends){
print "$str\n";
}输出：
Ajeet
Tom
Steve
Lisa
Kev