ちょいと修正

えと前述の

next if(($list[1]+$list[2]+$list[3]+$list[4]) == 0);

ってコードですが、文字列排除をした方が良いですね。
従って
next if("$list[1] $list[2] $list[3] $list[4]" =~ /[A-Za-z]);

の方がベターでしょうね。。sarにパラメータ与えて気づきましたorz