perl中的foreach结构
 首先语法
foreach $rock(qw /bedrock slate lava/){
       $rock="\t$rock";
       $rock .="\n";
}
需要注意的问题：
1，其他语言的循环变量一般是循环元素的拷贝，改变循环变量的值不会改变原来元素的值。但perl不同，perl的循环变量是指向循环元素的物理地址的，所以对循环变量进行更改，就是对原来的循环元素进行了更改。
2，当循环结束时，$rock（循环变量）的值恢复为循环开始前的值，这是另外一个跟其他语言的不同的地方。