Your problem is in this line:

        while ( my $line = < GOODFILE> ) {
[download]

Try using printto see what you're getting in $line:

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

Your error should be clear to you if you do this.