[Croston]

perldoc shift

shift @_; -- @_ -- это массив, не скаляр.