2008-03-01 4.17 循環リストを作成する Perl Cookbook unshift(@circular, pop(@circular)); # 最後の要素が最初の要素になる push(@circular, shit(@circular)); # 最初の要素が最後の要素になる