while (my $line=<ORIGFILE>) { # ...