$x  =  9;
sub  mm{
        print  "$x\n";
}
sub  gg_my{
        my  $x  =  11;
        print  "call-my$x\n";
        mm;
}
sub  gg_local  {
        local  $x  =  20;
        print  "call-local$x\n";
        mm;
}
gg_my;
gg_local;

print $x;

输出结果是：

call_my 11
9
call_local 20
20

9

可以看出，local函数在创建全局变量的一个局部实例后即可 将它传递给任何子例程并继续进行局部初始赋值。运算符my以与local函数同样的方法创建一次局部实例，然而，由my创建的局部实例 不能传递给其它子例程， 传 递给子例程进行运算的将是全局值而非局部引用值。