push(@$i,'4');
shift(@$j);
}
结果如下：
F:>perla.pl
In main program before calling subroutine:i=1 2 3
In main program before calling subroutine:j=a b c
In subroutine:i=1 2 3
in subroutine:j=a b c
In subroutine:the third element is c
In main program after calling subroutine:i=1 2 3 4
In main program after calling subroutine:j=b c
F:>
我们可以观察最后的结果，
在调用了子程序以后@i的值发生了变化：i=1 2 3 4 而j=b c。也就是说我们在子程序中对数组进行的push和shift操作在主程序中起了作用。
为什么会出现这种情况呢？
一般来说，我们在子程序中对变量进行了my声明，也就是只会在子程序中起作用，而不会改变主程序中的值。
在这里由于引用的是真实的参数，也就是主程序中的值，而不是它的备份，所以会得到相应的改变。
