4.12 配列内の複数の要素を一度に処理する

# @ARRAYの先頭から$N個の要素を削除する
@FRONT = splice(@ARRAY, 0, $N);

# @ARRAYの末尾から$N個の要素を削除する
@END = splice(@ARRAY, -$N);

# shift2
sub shift2 (\@) {
  return splice(@{$_[0]}, 0, 2);
}

# pop2 
sub pop2 (\@) {
  return splice(@{$_[0]}, -2);
}