while ( my $line = < GOODFILE> ) { chomp $line; print "GOODFILE line: '$line'\n";