>>948
スライスするなら何故分ける？
my($arg1, $last2, $last, @options) = @_[0, -2, -1, 1 .. $#_ - 2];