while ( my $line = < GOODFILE> ) {