print TXT "\nBOR ", join("|", @data[3,2,9,10,4,13]);