>>630
症状に関係あるかどうか知らないけど、
push @Deletelist, $_->[0] and $_->[1] = 'D' if $_->[1] == 0;
は
{ push @Deletelist, $_->[0]}　　　and　　{ $_->[1] = 'D' if $_->[1] == 0;}
という優先順位になるんじゃないかな。