perl shift

shift是把array中第一个移除，并返回.
备注：在子函数中，通常有 $value=shift;
        等价 $value=shift(@_);