# $/ = "\n" # Input RS already defined
$, = ",";
...
     print OUTPUT $column[4],$column[5],$column[7],$column[8],$A,$B;
     print $/; # or use 'say' as it was said.