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