Hello, lonnie.

I've made some changes to your code, similar to what dbander asked you to do in your previous and strikingly similar request for help.

I get the same output you do, so we're on the right track.

I will only comment on the things which prevent your code from working. There's a lot more we should discuss later.

Your main problem seems to be in this logic:

if ( $line =~ /^NAME/ ) {
    my ( $name, $variable1, $variable2 ) = split( ',', $line, 3 );
    $results{$line} = 1;
    print "  SET \$results[$line] = $results{$line}\n";
}
[download]

In regular English, this code:

1. Reads each file
2. Skips any line that doesn't start with "NAME"
3. Saves all the lines which do start with "NAME" to a hash.

Then, at the end, you print out all the lines you saved -- which are the ones which start with "NAME".