perl 笔记
1.请注意，在一个foreach循环中，迭代器并不只是设置为列表中的每个元素的值，它实际上是对列表的元素的引用。

sub m1{    local（my） $test=10;    m2();    print $test;}sub m2{    $test=20;}m1();