In

      if ($switch = 1){ # don't print lines that have previously been 
+repeated
           print OUT_B "$new_line$old_line";
       }
[download]

should that not be

      if ($switch== 1)

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law