my $nline = "\n";
my $comma = ",";
...
     print OUTPUT $column[4],$comma,$column[5],$comma,$column[7],$comma,$column[8],$comma,$A,$comma,$B,$comma,$nline;