print OUTPUT "$column[4],$column[5],$column[7],$column[8],$A,$B\n";