perl shift

shift是把array中第一個移除，並返回.
備註：在子函數中，通常有 $value=shift;
        等價 $value=shift(@_);