perl内部処理で、@list=`ls *.file`; が途中で止まると思っていたが、$DEG=1を設定していた。 内部処理は終了してから次に行くはず。

論文を読むのは辛い。むしろ計算機作業の方が、手が動く。