foreach 循环对列表或数组进行处理，能够逐项遍历列表中的值，依次迭代。
这里举两个例子，供大家学习参考。
1.列表
复制代码 代码如下:
#!/usr/bin/perl -w
foreach $rock(qw/bedbook slate lava/) {
print "One rock is $rock.n";
}
2.数组
复制代码 代码如下:
#!/usr/bin/perl -w
@rocks=qw/bedbook slate lava/;
foreach $rock(@rocks) {
print "One rock is $rock.n";
}
