Perl中 shift

shift 其实是 shift @ARGV 或者 shift @_ 的缩写。
就是一个很常见的数组操作，和 shift @foo 是一个语法。
至于到底是哪个的缩写，主要看 shift 出现在什么地方。
如果出现在 sub 里面，就是 shift @_，否则就是 @ARGV。