>>242
perlを起動すると、配列 @ARGV に、引数の一覧が入っている。
で、$ARGV[0]は配列@ARGVの先頭の要素な。

だから、
今のプログラムの処理のメインループを以下の構造で囲めば、
望み通りのことができると思うぞ。

while(@ARGV){
...
shift(@ARGV);
}