Looks like you're missing a right bracket here:

} else {
                print NDAT $INPUT{"q$i-a$j"};
                print NDAT "\n";
[download]

Gary Blackburn
Trained Killer