@arrayがあるだけぐるぐる回る。$hoge,"\n";}これもループですが、shiftを使ってます。このshiftってのは配列の先頭への参照を返して配列をずらすってことをやるみたいです。よって、だんだん@arrayは短くなっていき、最後には要素がなくなってwhileを抜ける、と。forと等価のように見えますが、配列内の値が変化しているので、whileのあとは配列が抜け殻になっているので注意。最後に要素数で割って平均を求めるとかできないみたいですね。"\n";最初のほうがわかりやすいですね。,"\n";}で@weekの値を表示します。}}このようなコーディングで、引数の値が一覧されます。$obj->sum(100,200,300),"\n";なんてできるわけですね。可変長引数のメソッドがPerlは簡単に作れるんですね。